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Schede di espansione per Vie 2tì 
I Da quando ho acquistato una sche- 
da di espansione da 16 K, i miei vecchi 
programmi non girano piu. Come mai? 

# É mollo probabile che i programmi 
cui li riferisci siano dèi giochi ni che uti- 
lizzano istruzioni del tipo POKE relati- 
ve all'area di schermo- In questo caso 
non possono girare. 

La memoria video dei Vie, infatti, 
quando non è inserita alcuna espansio- 
ne, occupa Tal ea clic va da 7680 a 8 1 86 
(22 colonne x 23 righe) mentre Parca che 
contiene informazioni per i colori di cia- 
scuna cella è quella numerala da 38400 
a 38906 

Quando col Vie senza espansione di- 
giii, ad esempio: 

MOKI 7680, 1 : POKE 38400,0 (R) 
puoi notare che il carattere "A“, in ne- 
ro, compare in alto a sinistra sul video. 
Se pertanto, senza espansioni, realizzi un 
gioco che visualizza c colora caratteri sul- 
lo schermo mediante istruzioni POKE, 
gli argomenti di tali istruzioni saranno si- 
curamente compresi nell’area di memo- 
ria RAM prima detti, 

Quando inserisci un 'espansione RAM, 
i puntatori {cioè le informazioni da cui 
il Vie viene a sapere dove L ‘si trova” lo 
schermo), vengono automaticamente al- 
terati, Nel caso di espansioni da H oppu- 
re ifr k, i caratteri dello schermo, ed il 
loro colore, sono allocati, rispetti va meri 
le, da 4096 a 4602 e da 3 7888 a 38394. 

Se carichi il programma cui accenna- 
vamo, questo eseguirà le POKE come 
prima, solo che ora, in quell’alca, non 
c*c più la zona vìdeo. 

In conclusione per utilizzare giochi nati 
per il Vie inespanso è necessario appar- 
irne le dovute modifiche oppure, ed è più 
semplice, rimuovere V espansione prima 


dì caricarli. 


Listali di programmi proietti 

! 1 È possibile avere ì listati di program* 
mi proietti? Molti di questi partono non 
appena termina il loro caricamento. C o- 
me individuare la SYS o l’ indirizzo del 
RUN? 

• Molti programmi, oltre che protetti, 
sono scritti il piu delle volte in Linguag- 
gio Macchina e non in Basic. Alcuni, or i- 
ginariamente slesi in Basic, vengono in 
seguito compilati, sottoposti, cioè, ad un 
particolare procedimento che consente di 
velocizzare il programma. 

Anche se riesci a rimuovere la proie- 
zione, è più che probabile che ti ritrovi 
un listato di alcune migliaia di istruzioni 
in L.M. che necessitano di un 
programma-uLi lìl y, dello Di s assembler, 
che “facilita” la loro interpretazione. I a- 
le lavoro, però, richiede un’esperienza di 
programmazione consistente e non sem- 
pre è sufficiente. Se poi il programma 
non è staio originariamente scritto in 
I M. ma è stato, da Basic, compilato 
l'impresa è decisamente disperata. 

in questi casi è molto più efficiente stu- 
diare ciò che riesce a fare il programma 
protetto e in seguilo realizzare un listalo 
in grado di fare le stesse cose. 

Banche dati e trasmissioni 
via telefono 

È possìbile, con un Commodore 64, 
dinegarsi ad una banca nati? 

• Grazie ad un apparecchio chiamalo 
MODEM, è possibile collegare, via tele- 


fono, qualsiasi computer con qualsiasi 
banca dati in grado di “dialogare 11 con 
esso. Il principio di funzionamento è 
piuttosto .semplice ed è del tutto simile a 
quello che si realizza quando registri un 
programma col registratore. 

Se, infatti, provi ad “ascoltare” un na- 
stro su cui è inciso un listalo, sentirai una 
serie di,, fischi che, per il computer, rap- 
presentano Ciò che per noi rappresenta 
la voce umana, fi programma, al mo- 
mento della registrazione o della lei tura, 
viene, ìn all re parole, trasformato in suo- 
nò e, di conseguenza, è suscettibile di es- 
ser trattato come tale. È ovvio che il te- 
lefono, oltre che la tua voce, è un ido- 
neo strumento per la J 'sua” voce. In ge- 
nere due utenti, che possiedono ciascu 
no un computer, un modem ed un tele- 
fono, possono scambiarsi dati e pro- 
grammi proprio ricorrendo al sistema de 
scritto. È ovvio che dapprima uno dei 
due deve avvertire, telefoni va meni e, Tal- 
Ero in modo che prepari il computer per 
rìce\eré s dati. Quando sono pronti pej 
la rice-ti asmissione instano, premendo 
opportuna mente dei tasti, i segnali. 

Se però, ad inviare dati, è una grossa 
Società, tale sistema richiede parecchio 
tempo e. di conseguenza, la procedura 
viene automatizzata In pratica un uteri 
te che desidera utilizzare una banca da- 
ti, paga un canone (fisso o proporziona- 
le all’uso) alla Società. Questa gli inv tu, 
periodi cameme, la parola d'ordine neces- 
saria per entrare in col legamento con in 
banca. Tome puoi immaginare un set v i 
zio di ta l genere richiede, per essere con- 
veniente {per la Società!), un gran nume 
ro di utenii e di denaro. 

In America ne esistono parecchi, mcn 
tre in II alia esistono banche dati che ven- 
gono uli lizzate da grosse industrie, tv 
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die, società finanziarie capaci, comun- 
que, di sostenere it costo, a volte notc- 
\ok\ del servizio. 

Il successo di una banca dati è, ira Pal- 
mi, direi i aulente proporzionale at mime- 
io di apparecchi modem venditi t. In Ba- 
lia, purtroppo, siamo molto lontani dai 
ti sdii americani. 


Le variabili del tempo 

_ Perché non è possibile modificare la 
variabile II mentre ciò è possibile con 
TIS? 

# J] motivo è pini tosto semplice ed in- 
dica, anzi, il buon criterio con cui sono 
siati realizzati i computer Commodore. 
Se l’utente, grazie ad una variabile, di- 
spone già di un controllo sul tempo, a che 
serve permettergli di controllarne un’al- 
tra? 

In altre parole è probabile che, durante 
l'elaborazione di un programma, l'utente 
modifichi più volte la variabile TIS per- 
dendo la.,, nozione del tempo, in qual- 
siasi momenio, pertanto, un controllo su 
Tl t inalterabile, permette di conoscere la 
quantità di tempo trascorsa da quando 
il computer è stato acceso oppure reset - 
iato via software, 

È però possibile alterare il valore di TI 
agendo, mediante Istruzione POKE, 
sulle ire locazioni che permettono al com- 
puter di calcolare TI. I.e tre locazioni in 
questione sono 160, J6L 162 sia per il 
VIC 20 che per il Commodore 64. 

Attera dapprima a piacimento il loro 
contenuto ed in seguito "'chiedi" il va- 
lore di TI mediante un semplice PRINT 
TI. 


L'Utility “Merge’ 1 
I In che consiste l’utility denominata 
"Merge"? 

# Supponiamo che tu abbia registrato 
un programma Basic di 10(3 tinte, nume- 
rale. però, da 1 a 50 e da 1000 a 1050, 
Se possiedi un altro programma la cui 
numerazione sia compresa Era 51 a 999, 
l'utility Mcrge permette di fondere i due 
programmi in modo tale che la numera- 
zione sia rispettata. 

Dopo la fusione, in altre parole, nella 
memoria del calcolatore ottieni un uni- 
co programma Basic numerato corretta- 
mente. Questa routine è però di scarsa 
utilità perché capita piuttosto raramen- 
te avere un programma con un "buco" 
di numerazione in cui inserire un pro- 
gramma, guarda caso, che possiede pro- 
prio la numerazione mancarne. 


Programma caleidoscopio ed 
istruzione 4 *Poke” 

.Nonostante le precisazióni del N. 13 
di C.C’.C,, il programma Caleidoscòpio 
perii 064 mi segnala lllegiil Quanti!} Er- 
ror in 260, Come mai? 

• li brevissimo programma in oggetto 
c stato pubblicato proprio per stimolare 
i nostri lettori. Ho fatto ricorso, infatti, 
ai simboli scmigrafici invece del valore 
numerico ASCII (righe 1 50- I71TJ E0-J90) 
in modo che il lettore scoprisse da solo 
quali fossero quei simboli sfruttando so- 
prattutto le indicazioni di errore emesse 
dal computer. Il rigo 260 contiene, infat- 
ti, ["istruzione POKE che, se male utiliz- 
zai a ^ emette il segnale di errore menzio- 
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nato. 

Esaminiamo, comunque, in dettaglio 

1 casi crìtici. 

L'istruzione POKE X, Y trascrive, nel- 
la locazione indicata con “X", il valore 
"Y'\ Due sono pertanto gli errori pos- 
sibili. 

19 primo consiste nel fornire un indi- 
rizzo "X" negativo o maggiore di 65536 
(cioè l'ultimo byte della memoria, dato 
da 2 16). 

Il secondo consiste nel fornire un va- 
lore negativo o maggiore di 255 (dato da 

2 8 ), 

Quando m una riga Basic è presente 
un'istruzione POKE X, Y e viene emes- 
sa la segnalazione di errore, questo non 
va ricercato nella linea indicata (come fa- 
reste per un Syntax Error) ma analizzan- 
do sia il valore “X" che “Y”. Stabilito 
quale dei due non rispetta i limiti prece- 
dentemente accennati è necessario risa- 
lire alla linea responsabile dell'elabora- 
zione di “X" cd l, Y*\ 

Nei caso particolare, hai sicuramente 
sbagliato nel trascrìvere i caratteri semi- 
grafici presenti sulle righe 180 e 190. Ta- 
le errata trascrizione rende negativi i va- 
lori di CL{5) o di CU2) che, elaborati 
dalla linea 220 t generano una "C” ne- 
gativa che, a sua volta* rende impossibi- 
le l’esecuzione di riga 260. Quali sono, 
allora, i simboli giusti ? 

Scoprilo da te: ora devi riuscirci... 




Programmi originali e non 
Li 1 programmi ‘"Bioritmi" e “Archivio 
Dischi" pubblicati sul N. 4 e 10 della vo- 
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IBM P/C. Sharp CE332P, 
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Epson TX 80. Itoh 8300R. 
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Sharp P3 3.000 
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Sharp 80P4A. 
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8027,6032 .....6950 
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Usate la seconda faccia del WS 
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dei Dischetti! 

Forattore di Dischetti per usare an- 
che l’altra faccia del disco. 

Per esempio Commodore 20/64, 
Apple 4, Atari, etc. 
a sole......... ..... Lire 12.700 

Tutti i prezzi sono IVA inclusa. 
Pagamento contrassegno 
Per ordini superiori a Lire 50.000. 
spese postali a nostro carico. 


Via Carbone , 8 - Tei : (0187) 67.40.97 \ 
Castelnuovo Magra ( SP ) 



bini rivisiti sono Liti traili da pretti 1 ri- 
ti pubblica/ioni americane. Come ctinci- 
liutc questo fatto con l'iiffcrmaiione die 
late: affermate jiufrlilieurc solo listali ori- 
ginali? 

• li secondo programma cui li riferisci 
rappresemi, in effetti, il rifacimento di 
un listalo pubblicato su di una rivista 
americana di cui abbiamo i tiiriui di pub- 
blicazione. C'è da dire che il listato ori- 
ginale era staio sviluppato per un dop- 
pio drive 4()40 e. sul fascicolo di ( .< \C. 
die citi sono presemi, invece, le modifi- 
che che consentono di utilizzarlo anche 
sul - singolo drive 1541, 

Non abbiamo alcuna difficoltà ad af- 
fermare che abbiamo pubblicato altri li- 
stali, olire a quello citato^ che giravano 
sui “vecchi” PI I Commodore e che ri- 
schiavano di essere trascurali perché in- 
compatibili con il VIC 20 e Commodore 
64. 

Possiamo affermare, anzi, che vecchie 
versioni di listali interessanti saranno 
adattale ai computer in produzione e 
pubblicate li] modo che i nuovi appassio- 
nati possano utilizzarti senza difficoltà. 
|] primo programma che citi, al contra- 
rio, era Maro pubblicato supponendone 
l' originalità. 

Ti ringraziamo, periamo, della segna- 
lazione e. anzi, allo scopo di evitare in 
futuro tali ‘‘incidenti'' abbiamo deciso 
di regolarci nel modo seguenie. 

11 compenso stabilito per un articolo 
o programma verrà assegnalo all'alno- 
re, tse effettivamente c... tale). In caso 
contrario verrà assegnalo al lettore che 
per primo, con documentazione fot osta 
tica t avrà fornito alla redazione la pro- 
va delia... illegittima paternità del lista- 
lo. 


Le espansioni per il Vie 20 
Mi capila di leggere, specie sii riviste 
straniere, la pubblicità di alcune espan- 
sioni di memoria per il VIC ?ll addirit- 
tura da 64 k RAM, Di che si tratta? 

• A n z i t u 1 1 o scori sig I i amo d i uc q ni sia re 
all'estero qualsiasi accessorio per compu- 
ter, In balia si ha, se non altro, la possi- 
bilità di,,, litigare in diretta in caso di 
malfunzionamenti, 

Scherzi a parte le espansioni l ‘ufficia 
li 1 ' per il VIC 20 sono quelle da 3K, Kk 
e 3 6K. È possibile, con un connettore 
particolare, ospitare più di un'espansio- 
ne per volia. 

Tieni presente, però, che responsione 
da 3K può coesìstere insieme con quella 
da 8 oppure da 16K mentre una da fi non 
può coesìstere con quella da 16. Questo 
vale per le espansioni ‘‘ufficiali" (vendu- 
te, cioè dalla Commodore), Vino ir com- 
mercio, però, alcune espansioni che con- 
sentono di riempire, da sole, tutta la 
RAM possibile die, olire a quella forni- 
ta di serie col VIC 20, ammoiua a 3 bloc- 
chi da 8K ed uno da tk. Spieghiamoci 
meglio: il computer senza espansioni ha 
una quantità di RAM (gestibile da Basic) 
il cui indirizzo parte da 40% e arriva a 
7679. Aggiungendo la sola espansione di 
3K il Basic viene automaticamente posi- 
zionato da !t)24 a 7679. 

Con ['espansione da fik vengono uti- 
lizzati i byte da 4608 a 16383 mentre con 
quella da I6k si va da 4608 fino a 24575. 

Il VIC 20, però, dispone di altri 8K di 
memoria indirizza bili vale adire quelli da 
24576 a 32767, 

Gli indirizzi da 32768 in poi sono uti- 
lizzati dal computer per altri scopi e, di 
conseguenza, tali indirizzi non possono 
essere “riconoscimi” alto scopo di allo- 
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Molti di coloro che leggono queste no- 
te acquistano forse per la prima volta una 
rivista dedicata ai computer e tale ... even- 
to è dovuto motto probabilmente al fatto 
che hanno appena acquisi aio un personal 
oppure stanno per acquistarlo. 

L’anno scorso di verificò un Boom senza 
precedenti nella vendita dei calcolatori 
personali ed i costruttori, felicissimi, ne 
approfittarono per affermare che il com- 
puter stava finalmente prendendo il posto 
che gli spettava tra i renali di prestigio, 
intelligenti, ‘in’ 1 , di moda ed altre cose del 
genere. Mentre, però, iJ numero dì appa- 
recchi venduti sale sempre più vertigino- 
samente, sarebbe necessario che qualcuno 
facesse, tra le tante, una statìstica per con- 
trollare quanti acquirenti abbandonano il 
computer in cantina dopo i primi entu- 


siasmi e le prime {più numerose) difficoltà. 

Se chi legge queste righe è a inumo, un 
sol© consìglio; Datti da fare. Per gli altri, 
per i quali H computer è ormai pane quoti- 
diano, non un consiglio ma un ordine; Im- 
pegnarsi maggiormente per restare un 
gradino più in alto rispetto agli altri. 

R questo non per sterile antagonismo o 
competi li viti ma solo perché nel nostro fu- 
turo ci sarà sempre un computer. 

Se ciò è un bene o un male non tocca a 
noi stabilirlo. Possiamo solo dire che, oggi 
più che mai, chi rimane fuori dal “giro" 
informatico sarà destinato a soccombere. 
Senza mezzi termini. 


Alessandro de Kiniune 
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care programmi basic. In effetti c’è un 
altro blocco di memoria a disposizione 
ed è esattamente quello da 40960 a 49152 
riservato alle cari ucce dei giochi. Se in 
questi indirizzi poni una memoria RAM 
da 8K puoi disporre di memoria aggiun- 
tiva che però, bada bene, non viene "vi- 
sta" dal Basic ma che puoi utilizzare» ad 
esempio, per allocare programmi in lin- 
guaggio macchina, 

ÀI di là di tali espansioni, e con le li- 
ni fazioni dette, non e possibile gestire ab 
tra memoria. 

Le espansioni da f>4K cui ti riferisci so- 
no in effetti dei veri e propri “doppio- 
ni" degli indirizzi del computer. Ciò si- 
gnifica che ali indirizzo HXKK tomo per 
dirne uno, sono presenti due locazioni 
RAM. L/una e quella “normale 11 gesti- 
ta da] basic. L'altra, invece, è "nascosta" 
sotto di essa. Attraverso complessi pro- 
grammi in linguaggio macchina è possi- 
bile selezionare la locazione di "sotto 1 ' 


oppure quella di "sopra" lenendo pre- 
sente che con tali operazioni il sistema 
operativo (che si trova "sopra") può 
"scomparire" ed è necessario ricostruirlo 
in qualche modo. Tale tecnica viene ado- 
perata normalmente nel Commodore 64 
che, come è noto, è capace di gestire 64 k 
di RAM proprio col sistema di selezione 
del banco di memoria che interessa. 

In definitiva ti consigliamo l’acquisto 
di un banco da 64K per il VI C 20 solo 
se espertissimo in linguaggio macchina e 
se sei veramente innamorato del VKL\ al- 
trimenti tì consigliamo di lasciar perde- 
re perché il gioco non vale la candela. Ac- 
contentati delle espansioni da inserire nel- 
le locazioni lecite la cui quantità è del re 
sto ragguardevole, 

Alessandro de Simonie 
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Per motivi indipendenti dalia nostra volontà , una percentuale 
superiore alla media delle cassette di Commodore Club n. 2 

presenta difficoltà di caricamento. 


Per evitare disagi ai nostri videolettori, Commodore 
Club n. 2 verrà duplicato a dicembre all’interno del terzo numero. 
Per tutti, quindi, Commodore Club n. 3 sarà un numero doppio!!! 
Tra gli altri meravigliosi giochi in edicola a dicembre: 
Oroscopo, Pinocchio, Mr. Chomp, Shuttle, Visitors, Panettone... 

, e tanti altri. | I 
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Xa questo numero di C.C.C. il lettore 
troverà alcuni disegni (nove, per l'esattez- 
za) realizzati con il plotter stampante 
Commodore a quattro colori. Tale scelta e 
stata fatta per rispondere, pur se parzial- 
mente, alle numerose richieste dt littori, 
non proprio esperti, che dopo aver acqui- 
stalo la periferica in oggetto son rimasti 
delusi per la mancanza di software ad essa 
dedicato. Come abbiamo piò volle ripetu- 
to, le schede pubblicate nell'ultima pagina 
della rivista sono tenute in grande conside- 
razione e la pubblicazione delle routine ne 
sono una conferma. 

l o stesso autore dei listati, per non de 
luderc i nostri lettori piò fedeli che non 
jxissegnnu « P'otter, ha sviluppalo alcuni 
programmi che. utilizzando le routine gra- 
fiche di Danilo Toma (pubblicale sui N. 14 
di C CX.) visualizzano sullo schermo gli 
slessi disegni a velocità, Mite dirlo, net- 
tamente *up«ri<>re- 

Tali routine dimostrano, ìnequìfocabilmeii- 
te, die 11 programma di P ub ^^“ 

funziona perfettamente e NON CON 

tiene errori DI sorta. 

Altri listati che utilizzano le routine in 
oggetto stanno giungendo in Redazione <■ 
vengono attualmente analizzati per sele- 
zionarne i migliori. 
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ciascun listato la linea 
titolo del disegno mentre la linea dindi* a 
tempo necessario per realizzare il dtseg 
cui si riferisce la figura stessa. 

| listati del secondo gruppo (figure 1 , 
,2 l7 ) sono invece “aulosufficent. « 

richiedono soltanto il preven.ivo canc- 
' mento <e lancio) delle routine d. Toma 
pubblicate sul N. U di CX .C. 




(.riandarli! Castagna 


1 REM 

2 REM 

3 REM 
3 REM 
6 REM 


********************** 

* GIOCARLO CASTAGNA * 

* ALCUNI DISEGNI PER * 

* PLOTTER COMMODORE * 
********************** 


LE RQUTIFE 
NUMERO 




! 0 T 

15 REM LUCE COMUNI A TUTTE 

16 REM PUBBLICATE IN QUESTO 

20 I 

100 OPEN 1,6,1 i OPEN 2,6 ,2 
110 OPEN 4,6= OPEN 7,6,7 
1S0 : 

130 REM INSERIRE QUI LE ROUTINE 
140 REM PUBBLICATE r^L FASCICOLO 
240 : 

£30 PRlNTttl, 

£60 POR 1 “ 1 TO 10iPRlNT*4i hCMT 
£70 PRINTIH , *M" ,350,01 PRlNT#4 r '<BY CAST* 
280 POR T c 1 TO 4t PRIKT*Ì4i NEXT i PR ] NT** 7 
£30 CLOSE li CLOSE £: CLOSE 4* CLOSE 7 
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donare 
uno strumento 
è bellissimo. Ma saper 
suonare tutti gli strumenti è 
proprio la line de! mondo. 
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Scommettiamo die con il sistema Music 64 


sei capace anche tu? 

Se già possiedi un personal computer 
Commodore 64 con unita a cassette o a 


disco il gioco c latto. 

Ti basta acquistare^ con una modica 
spesa, la tastiera, eollegarla ai computer e 
suonare! L se vuoi lare le cose alla grande 
puoi persino collegare il computer al tuo 
stereo. 


Ma torniamo alla tastiera die, con 
ben 4 ottave, è davvero professionale. La 
tastiera ha due programmi. Il primo ti 
permette di sintetizzare suoni polifonici, 
cosi da potere eseguire accordi. Già 
predisposti ci sono i seguenti timbri: flauto, 
banju, spinetta, campane tubolari e 
fisarmonica. 

Il secondo programma e 
monofonico: premendo un tasto per volta 
puoi lanciarli in travolgenti assoli con ii tuo 
strumento preferito: ìa ri produzione 
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timbrica di ben 13 strumenti non ti lascia 
che Hmbarazzo della scelta. 

Con un po' di pratica poi, riuscirai, 
intervenendo sui parametri, ad ottenere 
tutte le modificazioni di timbro che 
desideri. 

E sempre modificando i parametri 
potrai persino ottenere effetti di vibrato, 
tremulo e modulazioni. E inoltre tutti gli 
effetti sonori più strabilianti c 
fan ta scientifici. 

Tra breve Music 64 si arricchirà di 
nuove possibilità- Come la visualizzazione 
sul video del pentagramma relativo a ciò 
che stili suonando: e questo li sarà dì 
grande aiuto nello studio delia musica. 

Poi coiì Music 64 potrai memorizzare 
quello che suoni e intervenire su tutta la 
materia sonora programmata: per 
correggere, sviluppare o effe tiare a tuo 
piacimeli lo. 

Ci sarà inoltre un programma di 
accompagnamento ritmico che prevede la 



possibilità di intervenire su 8 ritmi di base e 
di creare, a piacere, un nono ritmo del tutto 


Music 64 si interfaccia con c* Commodore 


nuovo. A tc i tasti, E forchestra è tua. 
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k_7iamo ormai giunti al numero 16 della 
rivista e molti degli argomenti affrontati 
sinora possono interessare i nuovi lettori 
della rivista. 

Riportiamo qui di seguito i titoli, il nu- 
mero del fascicolo ed un breve commento 
sul contenuto di articoli prevalentemente 
didattici. 


• Basic e linguaggio macchina (n. È ) 

(Breve introduzione alle differenze tra i 
due linguaggi ) 

• Simulazione di somma algebrica (n, 3) 

(Come il microprocessore esegue i calcoli) 

• L'aritmetica binaria (n. 4) 
(Considerazioni sul sistema di numera- 
zione) 

• Simulazione monitor f SM (n. 5 e 6) 

(Semplice Monitor per chi inizia a lavo- 
rare in linguaggio macchina) 

• Assembler per tutti (n, 6, 8, 13) 
(Introduzione all' Assembler mediarne sem- 
plici esempi sul CBM 3032* Commodore 
64 e Vie 20) 

• Controllo del cursore mediante tastiera 

(n. 7) 

(Esempio pratico di comando del cursore 
in un gioco di facile comprensione) 

• Ed ora passo al Pet (.7) 

(Procedura da seguire per caricare sui 
PET scric 3000 - 4000 - 8000 programmi 
in Basic registrati con Vie 20 e Commo- 
dore 64) 


• I caratteri speciali dei Computer Com- 
modure (n.8) 

(Quali sono* come ottenerli, come evitar- 
li) 

• Il Buffet di Tastiera (n. 8) 

(Come utilizzare a proprio vantaggio al- 
cune locazioni riservate al Sistema Ope- 
rativo) 

• Le funzioni logiche (n. 8) 

(Simulazione dei circuiti logici ed elet- 
tronici presenti in un calcolatore: OR, 
AND, NANO, NOR, OR EX, NCR EX, 
IN VERTER) 

• Tecniche di overlay (n. 9) 

(Come caricare in successione più pro- 
grammi in modo che ognuno utilizzi i ri- 
sultati delle elaborazioni precedenti) 

• Un pò d'ordine tra i bit (n. 10) 

(Come i calcolatori Commodore gesti- 
scono la memoria per programmi, matri- 
ci, variabili) 

• Rettore LN (n, 10) 

(Come limitare l'istruzione Rcstore solo 
ad alcune linee di DATA) 

• Routine grafiche il Linguaggio Macchi- 
na (n. 10) 

(Eccezionali routine per disegnare in alta 
risoluzione) 

• Come allungare le linee Basic (n. IO) 

(Basta con la limitazione di HO caratteri 
per riga Basic) 

• Archivio digiti (n. 10 e 11) 

(Come realizzare un archivio dei propri 
dischetti allo scopo di rintracciare facil- 
mente programmi e file) 


• La gestione dei file su cassetta (n. 1 1 ) 

(Come registrare dati su riatro senza 
problemi) 

• Come usare corre tt ameni e joystick e 
paddi? (il. 12) 

(Semplici esempi per predispone II Vie 
20 e il Commodore 64 agli utili accessori) 

• Àlberi binari di ricerca (n. 13} 

(Come rintracciare dopo 16 tentativi un 
dato tra 65535) 

• tper Monitor (n, 13) 

(Potente utility per lavorare in Linguag- 
gio Macchina) 

• Disussembler (n. 13) 

(Utility per d ^assemblare listati in L.M.) 

• File Relativi (n 13) 

(Aumentiamo la versatilità del drive 
1541) 

• Espansioni dei comandi Basic (n 13) 
(Come aggiungere nuovi comandi al 
Commodore 64 1 

• J n Urni pt (n 13) 

(Come sfruttare una particolare routine 
dei computer Commodore per propri 
scopi) 

• Assembler (n. 14) 

(Brevissimo programma pei lavorare in 
linguaggio Assembler) 

• Routine grafiche II (n 14) 

(Nuovi potentissimi comandi Basic ag- 
giuntivi per disegnare perfino in prospet- 
tiva) 

• Sette utility in Basic (n. I5f 
(Kenumher, Append. Dump. Finti Dele- 
te, Gasub calcolalo, Gosub l abel) 
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Tutte le più sofisticate proposte 
della tecnologia americana nel 
settore dell'informatica 
“concentrate” in un unica mostra, 
una mostra che specializzandosi 
ulteriormente di anno in anno, è 
giunta alla XIV edizione. 
Riproponendo un'iniziativa che già 
lo scorso anno è stata accolta con 
grande interesse dagli operatori del 
settore, un intero padiglione verrà 
dedicato esclusivamente al 
COMPUTER GRAPHICS ed alle suo 
applicazioni 

in concomitanza con la mostra e 
quale momento di aggiornamento 
e approfondimento delle più attuati 
1 ematiche dell'informatica si 
terranno due seminari di studio 
6 7 FEBBRÀIO in collaborazione 


con la GITI BANK N A: “Cinque 
tecnologie innovative per 
l'informatica e loro applicazioni: 
integrazione circuitale, optical disc, 
I/O voice, business graphics e 
linguaggi della quarta generazione' 1 , 
Coordinatore Dr Gianfranco Minati. 
Quota di partecipazione: 

Lire 200 000, 

8 FEBBRAIO: "La grafica nella 
realtà aziendale e industriale'' 
Coordinatore Ing Roberto Favero 
Quota di partecipazione: 

Lire 100 OCX) 

Per ulteriori informazioni sulla 
mostra e sulle modalità di 
partecipazione al seminario, 
contattare CENTRO COMMERCIALE 
AMERICANO TEL 02/4696451 - 
TEI EX 330208 LJSIMC I 




annuncialo nel numero prece- 
dente, ecco un breve (rispetto al solito) 
programma che permette a chiunque di 
aggiungere nuovi cornanti al Basic, 

Non è necessario sapere programmare 
in Linguaggio Macchina per usare questo 
programma: vi basta avere una routine in 
L.M,, presa magari da una rivista (per e- 
sempio potete copiare quella proposta qui 
di seguito), metterla in memoria e fornire 


(Speciali perché devono essere le prime 
linee del programma. Inoltre devono esse- 
re così strutturate “NUMERO DI LI- 
NEA’" "PAROLA’ 4 = “INDIRIZZO”, 
Nel listato vengono riportate, come esem- 
pio» le linee dalla MICIO alla 1800, che abili- 
tano i vari comandi delle mie routine* gra- 
fiche. D'ora in poi farò riferimento a que- 
sto tipo di linee chiamandole linee "coman- 
di". 


al mio programma L indirizzo e il nome che 
intendete assegnarle. Lanciato eoo RUN 
3000 il programma vi chiederà altri tre in- 
dirizzi.., è tutto qui, 

IL PROGRAMMA 

Vediamo ora più in dettaglio le varie 
operazioni da compiere. Prima di tutto do- 
vrete caricare le vostre routine ed allocarle 
in memoria, stando alienti che non vadano 
a sovrapporsi ad altre già presenti e che 
non si vengano a trovare in zone “pericolo- 
se”, tipo la RAM accessibile ai programmi 
Basic 0 le locazioni a disposizione del regi- 
stratore. Ricordatevi di prendere nota de- 
gli indirizzi di partenza di tali routi nes 
cioè, per intenderci, gH indirizzi che usate 
nelle SYS. Fatto ciò potete caricare questo 
programma. Prima di farlo girare dovrete 
scegliere le nuove l ‘parole 4 ‘ e inserirle, in- 
sieme agli indirizzi delle routine* a cui si 
riferiscono, in “speciali" linee Basic, 


Due avvertimenti importanti: non la- 
sciate spazi vuoti tra te parole (o tra te sue 
parti se è una parola composta) e il seguo 
di uguaglianza. La routine del Sistema G- 
peralivo che prende i Bytes dal testo Basic 
scarta automaticamente lutti gli spazi e 
quindi un comando che ne contenga non 
verrebbe mai riconosciuto. 

Secondo punto: i vostri nuovi comandi 
(le parole) vengono messi in una tabella 
che ha una lunghezza massima di 256 ca- 
ratteri. Quindi il numero di comandi che 
potete aggiungere non è infinito (ma non è 
neppure troppo limitato). Ogni parola oc- 
cupa tante locazioni della tabella quanti 
sono i caratteri che la compongono piò li- 
na. Perciò ipotizzando una lunghezza me- 
dia dì cinque caratteri (sei locazioni nella 
tabella) potrete aggiungere INT (255/6) 
parole, cioè 42 comandi. Se superate il Li- 
mite della tabella il programma si arresta 
e ve lo segnala. 

L'ultima linea “comandi” deve essere 



seguita da una linea con un asterisco (il 
segno di moltiplicazione), per segnalare 
che le linee “comandi” sono terminate. 

Battute le linee potete dare il RUN 
3000. 

Vi verranno chiesti tre indiri/ zi. 

iP er primo il programma vi chiederà do- 
ve volete allocare la routine (righe 24000- 
25000) che valuta i nuovi comandi e che è 
al lodabile. Tale routine è idi olita a quel» 
presente nelle mie routine* grafiche (è in- 
fatti estratta da lì). A proposito, vi ricordo 
che all'Interno di queste ultimi: * iene collo- 
cata dalla locazione 51000 alla 51115 (li- 
nee di DATA dalla 2240 alla 2330 del pro- 
gramma del N° 14 di C.C.C»), 

Valgono anche in questo caso e nei due 
seguenti le raccomandazioni di prudenza 
per non allocare routine e tabelle in posti 
“sbagliati”. Quando avrete fornito l’indi- 
rizzo e premuto RETURN verranno letti i 
DATA (cioè la routine) e posti in memoria. 
Vi ricordo ancora una volta che è impor- 
tantissimo trascrivere esattamente i DA- 
TA, pena il malfunzionamento o l'inchio- 
damento della macchina. Per aiutarvi nel 
controllo ho inserito una linea che arresta 
il programma se la somma dei DA LA non 
è quella giusta. Come già spiegato nel mi- 
merò precedente non è un sistema infallibi- 
le, per cui salvate il programma prima tir 
abilitare la nuova routine di salutazione 








comandi. La seconda cosa, che vi verrà 
chiesta è dove volete collocare la tabella 
delle parole. Nelle routine gru Ti che del N 1 
14 si trova dalla locazione Sili* alla loca- 
zione SI 163. 

iBudute che ogni volta che usate questo 
programma le tabelle vengono riscritte uti- 
lizzando soltanto parole e indirizzi presen- 
ti nelle linee “comandi”; quindi dovete 
"dichiarare’ ogni volta tutti i comandi che 
colete siano riconosciuti. Per ultimo vi ver- 
rà chiesto di indicare dove volete collocare 
la tabella degli indirizzi delle routine* che 
eseguono i nuovi comandi. Nelle già citate 
routine* grafiche questa tabella viene po- 
sta nelle locazioni 501 72-SO 1 89, sfruttan- 
do uno “spazio inutilizzato” che si estende 
fino alia locuzione 50214. Se intendete uti- 
lizzare iati routine* tenete conto che in 
questo spazio potrete collocare tabelle 
lunghe al massimo 43 Bytes. Ogni indiriz- 
zo della tabella “indirizzi” occupa due lo- 
cazioni ed anche qui c + è il limite dei 256 
Byte*, quindi il numero massimo di indi- 
rizzi inseribile è 128, finalmente, dopo a- 
vere ancora una volta premuto RETURN* 
verranno compilate le tabelle e visualizza- 
te parole e indirizzi inseriti. Per ultimi ver- 
ranno scritti iJ numero dei nuovi comandi e 
i Byte* occupati dalle due tabelle. 

Prima di abilitare i nuovi comandi verrà 
chiesto se tutto è in ordine. Se, pertanto, 



avete dubbi su nomi o indirizzi {sia delle 
routine* che delle tabelle), rispondete 
“NO" ed il programma si fermerà, con- 
sentendo di el leituare le opportune modifi- 
che, 

Rispondendo “SI”, verrà eseguito il 
comando SYS (R) (riga 645(1) in cui “K” e 
lindi rizzo che avete fornito rispondendo 
alla prima richiesta (allocazione routine 
nuovi comandi). Da quel momcnlo ì nuovi 
comandi saranno attivati, 

-Alcune parole visualizzate poi ranno ap- 
parire parzialmente diverse da quelle da 
voi scelte, in particolare con un segno gra- 
fico al posto di due o più lettere. Non pre- 
occupatevi, è tutto a posto, solo che nella 
vostra parola è presente una parola del 
“vecchio” Basic e la sua rappresentazione 

in memoria differisce da quella che appare 
nel listato. 

Chi ha presente come funziona l'inter- 
prete Basic, avrà già capito che la respon- 
sabile di tutto ciò è la routine del Sistema 
Operativo che compatta (o “tolte ni zza”) I 
comandi prima di eseguirli (se sono diretti) 
o di metterli in memoria (se sì trovano in 
linee dì programmali, lale routine ricono- 
sce le vecchi parole e le sostituisce con un 
numero di codice anche se sono “nascoste” 
dentro ad altre* tranne nel caso siano su 
ima linea di DATA o siano precedute dalle 
virgolette (quelle stsatc nel comando 
FRI NT)* anche nel li i EM. 

È per tale motivo che non ho potuto uti- 
lizzare lìnee di DATA ma ho dovuto fare 
ricorso allo strano metodo delie lìnee 
"comando" per compilare le tabelle. La 
r apprese n lazi ne della parola i iene letta di- 
rettamente in memoria e posta nella tabel- 
la senza più rìschi di una errala interpreta- 
zione. 


zm proposito di interprcia/ioni, devo 
avvertirvi che se vi capita di scegliere una 
parola (es, PINO) UGUALE -VI LA PRI- 
MA PARTE di un’altra (ev PINOC- 
CHIO), dovete porla in linea 'comando” 
SUCCESSIVA a quest' ultima. Perciò* ad 
esempio, sarà corretto così: 
llì« PINOCCHIO - JìXYYX 
200 PINO ‘ yyyyy 

Se farete il contrarlo* cioè definirete 
prima la parola più corta, non riuscirete a 


rare eseguire il coniando dalla parola più 
lunga (PINOCCHIO). 


ELII4INAZJONE DELLA 
FRECCETTA 

Rno ad ora non ve l'ho detto ma, visti i 
riferimenti alle routine* gru li elle del nu- 
mero scorso* avrete già intuito che i nuovi 
comandi per essere riconosciuti devono es- 
sere preceduti da una freccetta a sinistra; 

C ome promesso però ecco qui la 
formula magica per eliminare la poco or- 
todossa freccia. 

Sosti In ire il settimo DATA della linea 
24300 che è 121 con 115 (La somma del 
DA ( A dì riga 3025 di conseguenza diventa 
16076). Nella linea 3060 invece sostituite i 
due 1 1 con due 24. È tulio qui. 

C hi vuole, può addirittura cambiare di- 
rettamente i DA LA delle routine* grafiche 
senza ricorrere a questo programma: cam- 
biate ii primi) DA I V della lìnea 24250 (li- 
nea del prugi anima “routine* grafiche il") 
da 67 in HO e il settimo DATA della linea 
24300 da 121 in 115. Quindi l'ultima 
somma di controllo di quel programma va 
cambiata. Da 18056 a 18%3 (line;i 17), 

LVIimìnazinc della freccetta comporta 
un piccolo svantaggio e cioè un certo ral- 
lentamento nell'esecuzione dei “vecchi” 
comandi Basic. Vediamo come. Quando 
viene dato un comando o fatto girare un 
programma entra in azione la mia routine 
che controlla se il comando da eseguire è 
preceduto da una treccia e se dò non è 
cede if controllo alla routine “originale” e 
la perdita di tempo è di pochi imcrosecondi* 

Ne invece viene eliminala (nel modo in- 
dicato) la freccia di “neon osci mento”, la 
mia routine confronterà il comando con 
tutte Le parole della nuova tabella e solo 
allora cederà il controllo al “vecchio” Ba- 
sic. Il ritardo diventa proporzionale al nu- 
mero e alla lunghezza dei nuovi comandi. 
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Mi sembra di avere spiedata tutto per- 
ciò ora non vi resta die provare ad utiliz- 
zare il programma. 

Per non correre rischi di inchiodamento, 
assicuratevi che, quando digitate ‘RI % 
3000“ la rottine clic valuta i comandi sia 
quella originale. Il modo più sicuro è ricor- 
rere a SYS 64738, che però vi fa perdere il 
programma in memoria. Quindi ricordate- 
vi di farlo prima di caricarlo. 

TRASFORMARE IN DATA, O... 

Certo eseguire queste operazioni ogni 
volto che si accende il computer è disage- 
vole perciò quando avrete messo a punto le 
vostre routine*, le avrete caricate in me- 
moria e avrete fatto girare questo pro- 
gramma vi converrà “fissare" tutto in un 
unico programma. Per fare ciò avete due 
possibilità* ( i il primo modo è quello di tra- 
sferire routine* e tabelle in un unico blocco 
di DATA, come ho latto per le rutiline* 
proposte nel N, 14. 

I /operazione non presenta grosse diffi- 
coltà ma, specialmente se I DATA sono 
2000, può risultare veramente pesante. Per 
questo mi sono fatto un piccolo program- 
ma elle leggi il contenuto della memoria e 
lo trasforma iti lìnee di DATA. Se vi inte- 
ressa telefonate alla redazione (non a me 
per favore). Se ci saranno abbastanza ri- 
chieste io vedrete presto su queste pagine. 
Un secondo e più veloce modo per “saldare 
i vostri nuovi comandi è di salvare direi* 
lamento Ja parte di memoria che contiene 
routine* e tabelle. 

li modo per farlo è abbastanza semplice 
ed è il mio preferito. Quando date il co- 
mando SA VE la macchina prende le in- 
formazioni su quale parte della memoria 


salvare da due puntatori: il primo (che ip- 
dica dove iniziano i programmi Basic h si- 
tuato nelle locazioni 43 e 44, stabilisce la 
prima locazione da salvare, il secondo {fi- 
ne programma Basici, situato nelle loca- 
zioni 45 e 46, stabilisce l'ultima. 

Basta dunque modificare questi punta- 
tori e potremo Sahare le nostre routine*. 
Ber sapere quali valori pokare in queste 
quadro locazioni fate in questo modo. Po- 
niamo che X sia l'indirizzo iniziale, 

HI = UNT (X/256) : LO = X-H 1*256 
PGKE43, LO i POKE 44, HI 
(Ili stessi calcoli dovranno essere fatti 
per l'indirizzo finale ma le POKE saranno 
dirette alle locazioni 45 e 46. 

F aito ciò date il SAVE. Ricordate, dopo 
avere effettuato la registrazione, di rimet- 
tere i valori “normali", che avrete avuto 
cura di segnarvi» nei due puri! a lori oppure 
ricorrete al solito SYS 64738. 

Quando caricate le routine* cosi salvate 
dovete aggiungere un paio di “cose" al 
comando 1,0 AD, Dovrete infatti digitare: 
LOAD “nome programma", fi 1 
Dove n, è il numero di periferica, che 
sarà 1 per il registratore e 8 per il disco* Se 
non ricordate il nome del programma e 
stale usando il registratore potete battere 

le virgolette senza interporre spazi (LOAD 

” ”, UL 

Il comando LOAD, se non viene specifi- 
cato nulla olire al nome del programma da 
caricare* colloca tale programma invaria- 
hilmeiitc a partire dalla locazione 2049 (i- 
nizio area programmi Basici mentre se gli 
sì dà come indirizzo secondario “I" io col- 
loca nella stessa posizione in cui si trovava 
quando è stato salvato. 

Quindi una volta finito il caricamento le 
routine* e le tabelle saranno già in “posi- 
zione" e pronte ad essere attivate con una 
SYS. Il risparmio è doppio perché vi ri- 
sparmiate il tempo necessario alla lettura 
dei DATA ed inoltre la registrazione “di- 
retta" anziché attraverso lìnee di DATA 
occupa meno spazio sul nastro (e sul disco) 
e quindi il caricamento dura meno tempo. 

Dimenticavo di dirvi che usando il co- 
mando LOAD in questo modo dovrete ri- 
mettere a posto i soliti puntatori. Ricorrete 
ancora una volta a SYS 64738. 

Tutta la faccenda vi potrà apparire ini- 


zialmente complicata ma in realtà è molto 
semplice e rapida: accendete il computer, 
caricate i vostri nuovi comandi nel modo 
indicato, SYS 64738 c SYS X iti cui “X" è 
l'indirizzo di partenza della nuova routine 
di valuta/ione comandi. 

UNA APPLICAZIONE 

La breve routine qui di seguito riportata 
aggiunge un nuovo comando alle routine* 
grafiche. 

Questi pochi ma utili DATA permettono 
di trasferire la pagina grafica in una zona 
della memoria accessìbili 1 al comando 
PEEK. Dalla locazione 32768 alla loc. 
40767. Potreie cosi» con opportuni pro- 
grammi, salvare i vostri disegni oppure 
farli stampare. 

L’operazione contraria f cioè il trasferi- 
mento dalla memoria di massa alla pagina 
grafica) non necessita di questo passaggio 
intermedio {il comando POKE funziona 
anche nella pagina grafica) per cui non ho 
ritenuto il caso di “sprecare" altri DATA. 

volo se sono presemi le routine* grafiche. 
Da sola porta ad un quasi sicuro inchioda- 
mento. 

Procedete conte spiegalo e avrete l'im- 
mensa gioia di vedere che il vostro 64 non 
vi risponderà con un perentorio SYNTAX 
FRROfì quando gli direte di eseguire il 
vostro nuovo enmando. 
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UN ESEMPIO 

Descrivo orsi il procedimento da seguire 
nell'ipotesi che il lettore desideri utilizzare 
una routine in L.M* non servendoci di un 
comando SYS ma di un comando Basic dì 
sua... creazione. Supponiamo che la routi- 
ne in oggetto sia quella del programma di 
figura 2. Questa consente di cambiare il 
colore del bordo e dello sfondo dello 
schermo. F ovvio che la sua banalità serve 
solo da esempio per meglio comprendere la 
procedura da seguire per aggiungere nuove 
istruzioni Basic. 

# Caricate il programma di figura 2 e fa- 
telo partire con RUN* 

• Rispondete coti “3000(1" alla dominila 
“LOCAZIONE INIZIALE?". In questo 
modo la routine in L.M, (contenuta nelle 
righe DATA) sarà trascritta a partire dalla 
Locazione 30000 in poi. Attenzione: la rou- 
tine dì figura 2 è interamente rilocabik e. 
dì conseguenza, “funziona" in qualsiasi 
parte della memoria RAM la allocate. Per 
ciò che riguarda altre routine in L.M. è 
probabile che esse girino solo se allocate a 
partire da una ben determinala locazione. 


In questi casi è INDISPENSABILE ri- 
spettare il giusto indirizzo altrimenti il 64 
rischia r inchioda mento - 

• Caricate il programma di Figura l In 
questo {riga 21400) potete notare che ho già 
predisposto la riga-comando: 

2800 SCHERMO = 30000 
La parola codice "SCI IERMQ 1 potete 
modificarla, se credete. 

• Digitate RUN 300(1, La domanda "AL- 
LOCAZIONE ROUTINE?" si riferisce, 
come già detto, NON alla routine in L.M. 
del programma prima caricato (di figura 
2) ma al programma in Linguaggio Mac- 
china (anch’esso interamente rilocahile) 
che è posto nei DAT A da riga 24250 a riga 
25000. Questa interessante opportunità vi 
consente di "piazzare 11 dove meglio crede- 
te la mia routine lasciandovi ampia libertà 
per allocare le vostre. Digitate, per esem- 
pio, 25000 alla domanda iti oggetto e 
26000 e 27CMHI alle altre due domande die 
seguono. 

• Digitate SI (quando siete sicuri di ciò 
che avete fatto) alla domanda "POSSO 
ATTIVARE 1 NUOVI COMANDE?' 

• Da questo momento il Commodore 64 


REM *** 
REM * * * 

V 

# 

REM *** 
REM * * * 


ROUTINE PER SETTORE IL COLORE *** 
DELLO SFONDO E DEL BORDO *-** 


VA USATA INSIEME ALLA MUOVA *** 
ROUTINE DI VALUTAZ . COMANDI *** 


10 
20 
30 
40 
50 
90 : 

100 INPUT " LMRL OC AZ IONE INI Z 1 ALE * I Y 
150 FOR I ~ YTOY + 2S : RE ADA s P0KE I , A ! B=B+A : NEXT 
200 IFB< >3 179THENPR I NT “ERRORE NEI DATA 11 
993 : 

11100 DATA 32,158,133*224,16,38,3 
11200 DATA 76 ,7£ , 178, 142 ,33,208 
11300 DATA 32,253, 174, 32 * 158 , 183 *224 
11400 DATA 16,18,240,142,32,208,98 
READY. 


2860 SCHERMO “30000 
2893 * 

2399 : 

2900 REM 
790 1 REM 
£305 REM 
2910 REM 


È****************************** 

*** COMMODORE 84 *** 
*** ROUTINE NUOVI COMANDI *** 
** + DANILO TOMA *** 



accetterà il nuovo comando: 

SCHERMO A,B 

in cui "A" rappresenta il colore dello 
sfondo e "B" quello del bordo, 

NOTA BENE 

La nuova routine di valutazione coman- 
di si occupa di riconoscere la "parola" del 
comando e non eventuali parametri che la 
seguono. Questo compito spetta alle routi- 
ne di "servizio", cioè a quelle che eseguo- 
no i comandi (in questo caso ai 27 byte* 
della microroutìne applicativa). 

Se conoscete il linguaggio macchina ma 
non conoscete il modo di operare delTio- 
terprete Basic, dovrete accontentarvi di 

creare nuovi comandi esclusivamente sen- 
za parametri che lì seguano (un esempio di 
comandi senza parametri è "CI EAR" del- 
le routine grafiche del N„ 14). 

Naturai meri te potrete sempre ovviare al 
bisogno dì "passare" delle informazioni 
delle routine* di "servìzio" utilizzando le 
famigerate POKE. 

ALTRA NOTA 

Se farete girare tu micr orout ine applica- 
tiva con una SYS otterrete solo un 
SYNTàX ERHOR. Questo perché, come 
avrete già capito, la microroutine cerca ì 
parametri della sua "istruzione madre" e, 
non trovandola,. SYNTAX ERROR Infine 
una dolorosa scoperta dell utimo momen- 
to: esiste un caso in cui l nuovi comandi 
non vengono riconosciuti ed il computer si 
vendica con una segnalazione di errore. 
Ciò succede quando il nuovo comando si 
trova subito dopo l'istruzione THEN. Per 
ovviare al Fi riconveniente basta inserire, 
tra THEN ed il nuovo comando il caratte- 
re dì doppio punto (:)* 

Dan Ho Toma 
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£924 REM *** < BATTERE - RUN 3000 > *** 

2325 R EM È****************************** 

£389 s 

3000 LM*" INDIR I22G" : T$=" TABELLA " 

3010 PRXMT , *^fi ,, L*" A LLOCAZ , ROUTINE * i = INFUTR 
3020 FOR I = RTOR + 1 1S : REAOA : PQKE l ,A : B=B+A : MEXT 
3025 IFB< > I6082THENPR I NT "ERRORE NEI DATA” SENO 
3©30 PRINTLSJT*" MUOVE PAROLE ” ; : I LPUT 1 : J I = I 
3040 PRINTL$;Tifc" INDIRIZZI”; ? INPUTK SPRINT 
3050 M=PEEK<43 > + FEEK < 44 > *258- 1 :S=*R+5 1 

3060 H I = IMTC <R + 1 1 5/256 > SLO=R + ì ì -H I *25G:PGKER+ 1 , LO : POKER + 6 , H I 

3070 H I = I NT < 1/236 ) : L0“ I -HI #£56 : FOKES+ 10 ,LQ 

3080 F0KE3+ 1 1 , H 1 :PQKES+£0,LO£POKES+£1 ,HI 

3 100 HI = lNTCK/238> : LO *K -H I *258 FQKE5 +34 ,LG 

3 110 POKES +35 ,H [ i POKES +4 1 ,L0:R0KES+42 ,HI 

3120 MsM+5:J«E+l SPRINT, 

3 159 T=PEEK<M) : I F T= 1 7STHENPQK ES ,C SG0TQ6000 
3200 ! FT « 1 78THEN3500 

3220 IFJ~ J I <25 6 GOTO 3 £60 

324 0 FRI NT: FRI NT "HAI SUPERATO IL LIMITE DELLA "T*!END 
3260 IFT =0THENPR I NT i PR I NT " MANCA I ND I R I Z Z O " : END 
3300 IFT \ 128THENPR INTCHR*<T>; 

3350 IFT> l£7THENPRIMTCHRS<97>; 

34 00 POKEJ s M-M+ l :GQTG3150 

3500 POKE t , J*I - 1 s I =J 

3300 R*- M ” 1M=M+ 1 ET=PEEK<M> s IFT-0THEN3230 
4000 T'PEEK <M5 i IFT®0THEM4500 
4 100 R$=R$+CHR$<T) £M=N+ 1 SGOTO4000 

4500 T -VAL (R-f > : I FT< 0ORT >65536THENPR I NT : PR I NT ” 3 ND I R I Z Z O ILLEGALE” 
4600 MI = 3 NT < T/256) iL0=T-H I *258 

4 700 PR I NTH I *256 +L0 tPGKEK ,LQSFOKEK+ 1 ,H I 
4800 K = K + 2 : C=C+ 1 * G0T03 120 

6000 PRINTi FRI NT" COMAND I * t C : PR I NTT$ N PAROLE " Jj-l-JI * B YTE S 11 
8100 FRlNTT* 1 * INDIRIZZ I ”£*C; "BYTES " 

6200 INPUT 1 * M POSSO ATTIVARE I NUOVI COMAND I KK* 

6300 I F * NO 11 THE NE ND 

64 00 IFKKSK > “S I " THE N6 2 00 

8450 £Y£R: REM * + * ABILITA NUOVA ROUTINE VALUTAZ IONE COMAND I *** 
8500 PR INT"Lk t Sa f, TABC 15) ”T,0, BASIC " 

7000 tr d 
3333 i 

24000 REM ** + ROUTINE IN LINGUAGGIO MACCHINA * + * 

24250 DATA 169 ,67 , 14 I ,8 ,3 f 169 , 199 , 14 1 ,3 ,3 ,96 , 32 , 1 15 
24300 DATA 0 ,20 1 ,35 ,240 .,6 , 32 , l£ 1 ,0 ,76 ,23 1 , 167 , 169 , 0 
24400 DATA 133 ,243 , 165 , 122 , 133 ,252 , 165 , 123 , 133,253 , 160,0,240 
£4590 DATA £0, 165, 25£ , 133, 122, 165,253, 133, 129 ,230,243, 163,3 
24600 DATA 137,243 ,£48 ,2 18,200 ,282, £03 ,252 , 185, 172,199, 170,32 
24700 DATA 1 15,0, 133,254,200, 185, 172, 133, 197,254 ,208,219,202 
84300 DATA £©S , £4© ,6 ,£49 , 1 66 ,249 , 1 89 ,252 , 1 35 , 1 4 I , 63 ,3 , £3£ 

24300 DATA 189,852 , ÌB5 , 14 1 , 64 , 3 , 169 ,3£ , 1 4 1 ,82 ,3 , 1 69 ,36 
25000 DATA 14 1 ,65,3,32, I 15,0,32,62,3,76, 174, 167 
READY* 
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Creazione di Caratteri 

sul Vie 20 


■VIC 20 



Il VIC 20. come il fratello maggiore 
CBM 04. è sialo dotato da Mamma 
Commodore di un ottimo set di caratteri: 
maiuscoli, minuscoli, grafici e speciali. Se 
vogliamo creare un video-i iogioco non 
possiamo usare tali caratteri ma dobbiamo 
poter disegnare mostri intergalattici o cose 
simili. C ome possiamo farlo se i caratteri 
del VIC si troiano in una ROM. doie pos- 
siamo solo andare a leggere (Read Onlv 
Memori I? \ ediamn come è possibile Earìo. 

UN PO' DI TEORIA 

II nome che il nostro '"cervellone’' ha, 
mi riferisco al V |( 20, è: \ IL V-vldeo Cn- 
l ertaci 1 C -hip. In pratica un integrato de- 
stinato alia gestione del ^sdeo. Molte delle 
funzioni del \ !C 20 sono cosi da attribuire 


a questo integrati» denominato con la sigla 
6561u 


tale ( hip sono stale riservale tre 
aree dì memoria: 


• Mappa Video in Rum 

• Mappa Colori in Rartt 

• Mappa Caratteri in Rrim 
L'indirizzo di tali aree dipende dalla 

configurazione di memoria in cui ci ir<>- 
uaino, esclusa la Mappa Caratteri die ini- 
zia sempre a 32768-SSOÓtì. 

Piu precisamente avremo; 

M Video; • 768(1 - (SI e 00) a Hl9l - 
(MITO senza espansioni u con * 3h 

• 40% - ($i 000 1 a 7679 - (Sldff) con e- 

spansiom a partire da 8k 
M Colori: « 38400 - (S 9600) a 3H911 - 


(S97IT) senza espansioni n -r3k 
• 37888 - ($9400) a 38399 - (S95ff) con 
espansioni maggiori a f 3k 

Veniamo ora al punto cruciate della si- 
tuazione, il Chip 6561 possiede al suo in- 
terni) ben Ih registri di memoria a 8 bit 
ciascuno: 36864 - ($99901 a 36879 - 
($90tìf). lali registri sono ovviamente po- 
sti in Ram, e quindi è possibile program- 
marli fluir utente. 

All'accensione della macchina veng, 

ini zi a lizzali dal sistema in uno schema 
standard: video da 23 righe per 24 eoi uno e, 
schermo bianco e bordo ciano, caratteri 
bleit* e quello che più cì interessa generato- 
re di caratteri con inizio a 32768 -($811(10). 

Dopo tutti questi discorsi, avrete sicu- 
ramente intuito dove voglio arrivare: J in- 
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dirizzo (li inizio del generatore di caratteri 
o Mappa Caratteri è accessibile via soft- 
ware dall'utente. Più precisa mente, vi sarà 
uno dei 16 registri dd 6561 adibito a que- 
sto. Infatti è proprio così. 


i 


I registro in questione è il byte di indi* 
rizzo 36869 - ($9005) o, per meglio dire, 
sono i bit 0-3 di tale registro che indicano 
r ini/ in della Mappa Caratteri, Compren- 
dere come questi 4 hit vengano utilizzati 
dal sistema operativo per determinare l'in- 
dirizzo dd generatore caratteri, richiede- 


rebbe una conoscenza approfondila dell' - 
hardware della macchina, e quindi sorvo- 
liamo, Vediamo invece gli altri registri* 
che possono tornare utili per determinare 
applicazioni, soprattutto grafiche. 

Come già dello a noi interessa soprat- 
tutto il registro #6, n meglio interessami 
solo i bit 0-3 di tale registro, Il bit 3* se 
resettato, cioè posto a U, dice al 'cervello- 
ne' di andare a pescare nella Rom genera- 
trice di caratteri a partire dalf indirizzo 
dato dai tre bit 0-2 Ida notare il fatto che 
l'indirizzo di inizio della mappa caratteri. 


sìa in Rom che in Etani, sarà sempre all'i- 
nizio di un blocco da Ik). Se invece il bit 3 
è settato* cioè posto a 1* il calcolatore an- 
drà a pescare nella Ram. 

1 possibili indirizzi utilizzabili in Rara 
sono i seguenti: 


Registri 

6561 



N. 

DEC 

ESA 


#1 - 

36864 

$9000 

bit 0-6 distanza prillili colonna dui bordo sinistro 

#2- 

36865 

$9001 

bit 0-7 distanza prima riga dal bordo superiore 

#3- 

36866 

$9002 

bit 0-6 numero colonne 

bit 7 fa parte del P indirizzo d 1 inizio Mappa Vìdeo 

P4- 

36867 

$9003 

bit 1-6 numero righe 

bit 0 seleziona il formato dei caratteri 0 - 8*8, 1=16*8 

#5- 

36868 

$9004 

hit 0-7 pòsj/idMve numero linea raggio di scansione video 

M- 

36869 

$9005 

hit 0-3 inizio generatore caratteri 

- — 

— 


bit 4-7 indirizzo Mappa Video 


BIT 3 

2 

1 

0 

DEC 

ESA 

1 

1 

0 

0 

4096- 

£1000 

1 

t 

0 

1 

5120- 

$ 1 4fttì 

1 

I 

1 

0 

6144- 

$1800 

1 

1 

ì 

I 

7168- 

SlcOO 


È oviìn che per sceglierne uno dovremo 
tener conto della configurazione di memo- 
ria in cui eì troviamo, e della lunghezza dd 
programma che utilizza la nuova Mappa 
(es, non possiamo porre il generatore di 
caratteri a 40% se abbiamo un Vie 20 in 
versione base, intatti il lì asic coti questa 
versione del Vie inizia proprio a tale indi- 
rizzo), Potremmo porre La Mappa caratte- 
ri con un Vie Base a 5120, 6144, 7168 ed 
avere cosi rispettivamente una Mappa ca- 
ratteri da 3k, 2k, lk. 





di Brazzoduro R. e Cailtjgarl F. e n.c. 


Commodore 64 

Modern MOD2 300 Baud Bel! 
103, Alimentazione prelevata dal 
computer. Minime dimensioni, 

LI 60.000 + IVA + spese 
spedizione. 

Per tutti i modelli 
Commodore 

Interfaccia registratore. Lettura 


con inversione di fase. Led 

allineamento testina. 
Automatismo in commercio. 
Duplicazione nastro/nastro. 
Scambio programmi direttamen- 
te via radio. 

L.25.000 + spese spedizione. 


gno intestandoli a: 

B. & C. Elettronica sne - via 
Edolo, 40 - 20125 Milano. 
Consegna immediata al ricevi- 
mento ordine. 

Per informazioni telefonare al 
680.619. 


Pagamento; vaglia postale l Prezzi speciali 
assegno circolare ! contrasse- per i rivenditori 
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(ili //.indo una espansione da +3 k do- 
ve il basic inizia a 1025- ($0401) potremo 
porla anche a 40%. e non più ‘'bassa ' per- 
ché il 6561 non può raggi ungere indirizzi 
di memoria minori di 41)%. 

Mentre, se disponiamo di una espansio- 
ne da --8k* 16k possiamo porla solamen- 

te a 6144 c 7168. In questo uh imo caso 
possiamo ni [lizzare un piccolo trucco e 
porre la Mappa caratteri prima del basic, 
basta cioè spostare l’inizio del basic in a- 
vanti t riservarci la Raro che vogliamo. 

PASSI A \ IO A L L A P K ATI CA 

Vediamo ora come utilizzare quello che 
abbiamo imparato sul 6561. ( orna abbia- 
mo visto, iì registro da manipolare è il #6. 
La regola per calcolare che valore bisogna 
*'pokar€" in tale regisiro per un dato indi- 
rizzo può essere la seguente: 

Poke 36869 <Peek 36869) and MC) OR 
(SA/1 024 +8) 


caratteri. 

Quindi, se ad esempio vogliamo porre la 
mappa carotieri a 51 20. con un \ io in ver- 
sione base, scriveremo: 

Pftkv 36869, ((Peek (36869) and 240! or 
13) 

die corrisponde a: Potè 36869, 253 

% 

I comunque consigl labi le, quando si 
scrivono program mi. di utilizzare la regola 
generale per poter in seguito adattare il 
programma ad ogni configurazione di 
memoria senza dover stare a corrèggere 
lutto il listato. 

C 

«me esempio di quanto detto sopra 
provate a dare il seguente comando (quan- 
to segue è valido per un Vie con espansione 
non maggiore ai 3k): 

Poke 36869,242 

Vedrete i caratteri trasformarsi io mi- 
nuscolo (è Ja stessa situazione in cui vi tro- 
vate se premete contemporaneamente ì ta- 
sti shìt+ Commodore): avete obbligato il 
Vie ad andare a leggere i caratteri nella 
seconda parie del generatore, appunto 


sta scrivere: 

Poke 36869,241) 

ovviamente seguito dai tasto 'return'. 

t hè dobbiamo fare, in pratica, se vo- 
gliamo disegnare il nostro mostro interga- 
lattico sul Vie? Rasiera trasportare il ge- 
neratore di caratteri in Rara e sostituire ad 
un carattere standard, ad esempio la d, il 
nostro mostro, 

ino anzitutto vediamo come sono definiti 
i caratteri nel \ ic 20. L:rt carattere è costi- 
tuito da 8 byte consecutivi, è quindi forma- 
lo da 64 paoli (8*8 - 64), Ad ogni punto 
acceso sul video corrisponde un 1, mentre 
ad ogni punto spento corrisponde uno zero. 

Quindi la lettera *A' sarà così formata: 

7 6 5 4 3 2 10 

0 0 0 0 1 1 tò 0 u 

1 0 0 10 0 10 0 

2 AIO 0 I) 9 1 9 

3 0 i [ 1 1 1 I tt 

4 0* ] 9 0 0 0 ! O 


con: • me X = 246 con Vie base o +3k 
> — 192 con espansioni maggiori a ^ 3k 
• sa — indirizzo di inizio per nuova mappa 


quella che contiene il minuscolo. 

Per Cornare nella situazione normale ha- 





Commodore Italiana desidera 
aiutarti a scegliere bene il tuo 
Commodore 64,* 

Un buon consiglio: 
prima di acquistarlo, chiedi al tuo 
rivenditore di mostrarti se è un 64 
approvato e collaudato per l'Italia. 

Perchè è meglio controllarlo. 

Perchè quello non collaudato e non 
originale, cioè non distribuito 
regolarmente dalla Commodore 
Italiana, non è nato per i nostri 
standard elettronici, elettrici, 
qualitativi, e non è protetto per le 
interferenze radio. 


Come fai a riconoscerlo. 

Dal tra sforma tore/a H menta tore: se è 
un Commodore non collaudato per 
i Italia, il trasformatore/alimentatore 
è previsto per una tensione più alta 
{240 volt, cioè per lo standard di altri 
Paesi d'Europa); se è un Commodore 
collaudato e perciò garantito, la 
tensione è quella giusta, 220 volt. 

Scegli bene. 

Solo comperando un Commodore 64 
originale, la Commodore Italiana 
potrà garantirti che il tuo grande 
personal funzionerà al meglio della 
sua potenzialità. 
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COMPUTER 






t r«uiw»r Ctl iiinlLtrl sui \ ic lo 



5 0 1 0 0 0 0 t 0 

6 0 1 0 0 0 0 1 

7 0 0 0 fl l> CI 0 0 


Poiché, collie già ‘detto, ogni riga della 
griglia 8*8 è in realtà un byte di memoria* 
ad ogni riga Messa corrisponderà un valore 
numerico dato dalla posizione degli ‘uno’ 
che vi si trovano. Per meglio chiarire que- 
sto concetto vediamo di fare un esempio. 

Consideriamo la riga fl della griglia di 
figura. 


BIT- 7 6 5 4 3 2 1 0 

potenza di 2 

RIGA 0 0 0 0 1 I 0 0 


Avremo: 

257*0 + 2tò*0 + 2^5*0 + 2M*J + 213*1 
+ 212*0 + 211*0 + 210*0 = 16 + 8 = 24 
Basta cioè usare la seguente far mule Ita: 2 
1 posizione * bit elevare cioè 2 alla potenza 
data dalla posizione die stiamo considerando 
e motti plica re il tutto per it valore del bit in 
quella posizione. Questo io si deve fare per 
gli 8 bit del byte, poi si sommano i risultali di 
ogni operazione e sì trova il valore da immet- 
tere in quei byte, (tonsiglio* a chi non ha inai 
sentilo parlare di queste cose di andarsi a 
leggere qualche articolo di aritmetica binaria), 
A quest u punto è chiaro che per creare il 
nostro mostrici al (olo 1 basterà disegnarlo su 
di un foglio di carta, in una griglia come 
quella piu sopra, ed ad ogni riga far poi corri- 
spondere il valore numerico da inserire nella 
Ram assegnata toppure servirsi elei pro- 
gramma EDCÀR). 

Facciamolo: 
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Adesso che abitiamo tallo tutti i ‘comici ni'* 


sperando dì non aver sbaglialo, possiamo 
scrivere il seguente programmino di prova: 

IO 1 for sa — 7168 to 7168+7 

20 read ca 

30 poke sa, ca 

40 ncxl sa 

50 data 129, 66, 60, 90, 126, 60, óó* 165 

n 

tanto il lalidico RUN, ma non accade 
nulla!! Niente paura. Digitiamo in modo di- 
retto Poke 36869, (Pcek (36869) or I5>% se 
etra premiamo alcune volle il tasto 1 ' ve- 
dromo sul video il austro tanto atteso mostri- 
ci atto lo spaziale. Non abbiamo latta altro 
che mettere in pratica le nostre conoscenze 
sul Vie (inteso non come il cervellone, ma 
come il Video Interface Chip). 

Per praticità abbiamo rìprogrammaio il 
primo carattere della Mappa Caratteri, La 
' *, ma potevamo benissimo scegliente uno 

qualsiasi. Per far questo è però opportuno 
trovare il giusto indirizzo corrispondente a 
tale carattere- Un metodo può essere il 
seguente: 

Posizione carattere — inizio mappa carat- 
teri + 8* codice schermo carattere. 

Inoltre abbi Limo sostituito un solo caratte- 
re, ma ovviamente potremmo ^programmare 
tutto il set dei caratteri standard e crearci 
cosi tina serie di caratteri personalizzati* 
scrivendo magari in Greco* Cinese o Russo. 

Nota: occorre tener presente che i nuovi 
caratteri possono essere usali sia con dei di- 
mandi di TRI NT che con dei POKE' di 
schermo ma in questo ultimo caso bisogna 
anche determinare il colore in cui lo voglia- 
mo* poiché in caso contrario non vedremo 
niente, in quanto avremo una reva dì bianco 
su bianco. 


i PROGRAMMI 


• ROM in RAM L\l. È una breve routine in 
linguaggio macchina che consente di trasferi- 
re quasi istantaneamente la mappa dei carat- 
teri della ROM nella H\M all'indirizzo 
51 20-<ftl400), Fa routine stessa si accorge se 
stiamo usando un V1C 20 con espansione 
maggiore ai 3k (riga 210) ed in questo caso 
l’indirizzo di inizio nella R AM sarà spostato 
automaticamente a 7l68-SleO(f 

La routine Im si posiziona in una zona di 
pagina 2 libera a pari ire da 673-($02A I ) ili- 
nca I60g 


Può essere usata in un programma come 
suh fonti ile, 

• CARATTERI 16*8, È una routine in Ba- 
sic che permeile di creare caratteri standard, 
ma in doppia altezza. In pratica copia ogni 
byte dì un carattere per due volte nella R \ M 
dove poi si troverà la nuova mappa caratteri. 

(urne già detto nelF arti colo* per poter uti- 
lizzare tali caratteri* oltre a spostare l'inizio 
della mappa caratteri occorre variare anche 
il hit I) dei registro #4 posto a 3686 7- $9 003. 
Questa routine è stala utilizzata nel pro- 
gramma Vie Magic. 

• VIC MÀCIC. È un programma che di- 
mostro le varie possibilità offerte dalla mani 
polazkiiK del chip 6561, 

Utilizza la routine CARATTERI 16*8 (li- 
nea 630*71)0). Può essere un'ottima presenta- 
zione per un gioco di vostra creazione (vedi 
linea 560), 

• ISTOGRAMMI. 1 una di in osi razione 
pratica dell" utilità della grafica in vari pro- 
grammi, Si (ratta di un programma che dise- 
gna sul video degli istogrammi di diverso co- 
lore, tino ad un massimo di 10. 

All'inizio vengono chiesti in INPUT quanti 
istogrammi sì vogliono disegnare* dopodiché 
è richiesto* per ogni istogramma* il valore 
numerico (Ma*. 160) ed infine si passa ai 
grafico vero e proprio. 

U programma è scritto per la versione base 
o +3k* ma per farlo girare con espansioni 
maggiori m 3k basta togliere In linea 700* 
sostituendola con la linea 7 1 U (ovviamente 
eliminandola REM iniziale)* 

Dalla linea 1 10 atta 57(1 si trovano Le varie 
sub murine utilizzati dal programma princi- 
pale* che inizia alla linea 700* e che possono 
essere sfruttate per altri programmi di grafi- 
ca ‘Vichinga’* 

• CARATTERI a W È una breve routine 
che permette di 'slittare 1 i normali caratteri 
della ROM a 90\ ovviamente trasferendoli 
nella RAM. Essendo slata realizzata voluta- 
mente in Basic, per consentire di comprende- 
re a lutti il suo funzionamento, risente della 
lentezza di tale linguaggio. Ber questo motivo 
invece di inclinare tutti i caratteri, è stata 
scrìtta in modo tale da lavorare solamente sui 
caratteri che vengono inseriti nelle linee DA* 
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I À (vedremo magari (a versione in Lm sul 
prossimo numero). 

In pratica fiori i iene latto altro die lecere 
il primo bit di ogni byte del carattere in que- 
stione i% con quest i, formare il primo byte del 
carattere traslato. Il tutto è. ovviamente* lat- 
to per ognuno dedi olio bit* cosi da avere alla 
fine il nuovo carattere, 

Può essere utile in tari programmi t cy ri te 

r 

dovute modifiche potrebbe essere inserita nel' 
programma Istogrammi j, 

h. 

• EDCAR. L un programma di grande utili- 
tà pratica. Si traila di un VI ini Editor di 
caratteri, vi conserti c cioè di rendere tacite 
l' ideazione dd vostri caratteri personali, sen- 
za dover perdere tempo in conti e sprecare un 
sacco di carta. 


Potrete disegnare i vosi ri cara Iteri ih j I 
'quadratone' che vedrete in alto a sini- 
stra detto schermo, dove si trova un cursore* 
simulato da programma t linee GtKMTTl^ che 
potrete muovere con i tasti (’RSIt (AllodJas- 
so4)es Ira-Si ni strali, (mi il tasto II poi rete 
accendere un punto del vostru carattere, che 
vedrete in aita risoluzione sotto al quadrato- 
ne, mentre con I ? lo potrete spegnere | linee 
7lìd-74t)). Inoltre sulla destra del 'quadrato- 
ne' si troveranno i valori da potare’ negli 
indirizzi di RAM interessali, che vengono 
continuamente aggiornati (liner 1t»lMt20|. 

Per «se tre dal programma basta premere il 
tasto I & 17 t shift) e vi verrà richiesi u la 

con ferma con il tasto RI. l t KV Se invece di 
KETURN premete tm altro tasto qualsiasi 
tornerei e al programma principale. 


Il programma di memoria gira su ogni confi- 
Evirazione di memoria. Buon lavoro’ a tulli. 

NOTA 

I programmi utili// a no tutti un piccolo 
trucco die consente di non rendere necessario 
il trasferimento dei caratteri a.] faro onerici 
dalla ROM alla RAM, Infatti se abbiamo 
posto il generatore di caratteri in RAM e 
scriviamo una stringa alfanumerica in re ter- 
se vedremo con sorpresa, ma non tanto se si 
pensa a come vengono visualizzati i caratteri, 
die su video verranno stampati i normali ca- 
ratteri contenuti nella ROM. Questo fattoi- 
utilissimo per poter mescolare la bassa e l'al- 
ta risoluzione sul vìdeo. 

(■invaimi Jkuni 


100 REM **************** ***** 

110 REM * ROM IM RAM LM * 

120 REM *TR AS F ERI ME NT0 DATI * 

130 REM * FER VIC 20 * 

1 50 REM ********************* 

160 S Y - & 7 3 : R E M INDIRIZZO DI PARTENZA DOVE PEMQR IZZ ARE ROUTINE LM 
170 REfìOA: IFA >255THEN190 


■-L’UFFICIO 2000-. 

Computers Shop Milano ■■■■J 
I Commodore Shop Vi propongono 

• NATALE CON IL COMPUTER • 

Offerte "Commodore" calibrate per I 1 hobby, il lavoro, il divertimento 

• NOVITÀ’!! COMMODORE 64 AD 80 COLONNE • 

Un sistema esclusivo per rendere il 64 più potente e professionale 

• CORSI DI BASIC GRATUITI • 

• PROGRAMMI OMAGGIO A SCELTA • 

• GARANZIA FULL SERVICE • 

Usa servizio esclusivo dell ufficio 2000 che assicura la sostituzione immediata 
degli apparecchi II ns. Laboratorio sarà disponibile anche a garanzia scaduta 

• VENDITA PC IBM • 

• RIVENDITORI AUTORIZZATI APPLE • 

L UFFICIO 2000 - Via Ripamonti 213 - Tel 5696570/3 - Via T. Grossi 2 - Tel 864479 

Aperti anche il Sabato 
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180 FOKESYM ,ft: 1 = 1 + 1 : CK = CX, +9 s GOTO 170 
130 IFCK-flOOTHENPR I NT "ERRORE NEI DfìTPi !":END 
280 REM SE ESPANSIONE MAGGIORE DI 3K ALLORA 
205 REM PONE MAPPA CARATTERI A 7 163- (ESA 1C00> 

210 IFPECK ( S44 'i -PEEKC642) >S3THENP0KE SY+3,23 
223 3Y3 CSY ) : REM TRASFERISCE ROM CARATTERI IN RAM 
230 PRINT'JBrRASFERI MENTO AVVENUTO" 

248 EMO : REM SOFTWARE DI GIOVANNI BEAMI 
DATA 169,000 

2 75 DATA 169,020: REM CARICA REGISTRO X CON BYTE ALTO 
c~E REM DI INDIRIZZO NUOVA MAPPA CARATTERI (20=51201 
67? DATA 160,123,133 

630 DATA 167,133,169,134,170,132,163 
637 DATA 168,177,167,145,169,200,203 
694 DATA 249,230,163,230,170,166,170 
701 DATA 224,044,208,239,096,5273 
READY. 


= 1500 

REM 

835 IO 

REM 

63520 

REM 

63530 

REM 

63540 

REM 

63550 

REM 

63560 

REM 

63570 

É 

1 

63580 

ROM= 

63530 

99=7 

63600 

CA=2 

636 10 

!» 

’» 

63620 

REM 

83630 

POR 1 

63640 

POKE 

63650 

F ORE 

636 6 0 

RGM= 

63670 

NEXT 

636SB 

i 

A 

63630 

REM 

63700 

POKE 

6 37 : 0 

READY . 

END 


. L . L J .r. J. J i -IN Ji U JU JL* J L- iJL- l, 1 idL i 

(- Jf- | ■ X 1 - - y - J - *J* Jp 1 *■ *■ 'X - ■ p ™ ■ ■ J- - f - 

* CARATTERI 16*9 * 

* * 

* PER VIC £0 CON * 

* * 

* ESPANSIONE 0 SENZA* 

********** *********** 

39769 1 REM INIZIO ROM CONTENENTE CARATTERI 
168 i REM INIZIO NUOVA MAPPA CARATTERI 
7 : REM CARATTERI DA TRASFERIRE 

** TRASFERIMENTO CARATTERI ** 

=SA TO<SA+ 1G*CA )STEF2 

I .PEEKCRQMÌ : REM COPIA PER DUE VOLTE 

I + 1 ,FEEK (RDM) 5 REM LO STESSO BYTE 

ROM+ ì i REM PROSSIMO BYTE 

; REM GIOVANNI BEAMI 


** ABBASSA PUNTATORE F Ih 


MEMORIA ** 


10 REM * * * 4- * * * * * * * 4 * + t * * * * * * * *. ****** 

£0 REM * ISTOGRAMMI PER VIC £0 * 

3S REM # * 

40 REM + G. BEAMI & L- BONC I + 
50 REM * * 

60 REM ***************************** 
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100 8 OTQ 700 

110 REM ** RIEMPIE CARATTERI IN RAM ** 

1£0 FOR I " 0 TO 20 
130 F 0 RJ- 7 TC 0 STEP -1 
140 FQKESA+ 3 *;8 + J ,,255 
150 mxj j,l 
1 G 0 i 

170 REM ** RIEMPIE BYTE RIMANENTI * + 

180 POR I = 0 TO CNU/S > - 1 

130 l^»NU C I >/ 8 : IK^B-ÉNUC I >-S* I 3 £> ! REM CALCOLO BYTE IN VA 

£00 IF I>:= 3 THENE 40 

210 F 0 RJ- 7 TOI%STEF- l 

220 PGKESA+S* < 1 + 21 >+J f 235 

230 NEXT 

340 NEXT 

c 50 RETURN 

260 i 

270 REM ** PULISCE RAM CARATTERI ** 

230 FOR I -SATCHSA+ 3*3 l > 

£90 POKE 1,0 
300 NEXT 
310 RETURN 
320 i 

320 REM ** DISEGNA ASSI CARTESIANI ** 

340 PGKEVO+ 4 S 4 , 43+ 128 : FDKECL+ 484 , 0 t REM ORIGINE ASSI 
350 FOR I =£ 1 TO 0 STEF * 1 
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3G0 PQKEVD + I *££ , 33 + 128 : FOKECL + 22* I ,0 S REM ASSE Y 

370 P0KEVD+485+S 1 - I ,35 + 1 £8 * PQKECL+485+S 1 - J ,0 : REM ASSE X 

380 NEXT 

330 RETURN 

400 ; 

410 REM *# SCRIVE CARATTERI PER ISTOGRAMMI SU VIDEO ** 

4E0 CO=£!REM CODICE COLORE 

430 IH-BSREM CONTATORE VARIABILE INDICIZZATA NU 
440 FOR J =£TONUSTEP£ 

450 YY=£ 1 : REM CONTATORE COLONNE VIDEO 

460 IFNU(H) <3THEN5£0 

470 FOR 1=0TG (NU <H) -3 JSTEP8 

430 POKEVD+YY*2E+J ,E1 -YYiREM SCRIVE CARATTERI DA G A MU ( I ) 
490 POKECL+YY*E£+ J f CO!REM E LI COLORA 

500 YY=YY“ 1 
510 NEXT 

5£0 POKEVD+YY*££+J,£0+( J/£) :R£M SCRIVE ULTIMO CARATTERE 
5£5 REM DIVERSO PER TUTTI GLI ISTOGRAMMI 
530 POKECL+YY*££+J,CO 
540 H = H + 1 

550 CO*CO+ 1 s IFCG=3THENC0=£ 

555 REM CAMBIA COLORE PER PROSSIMO ISTOGRAMMA 
566 NEXT 
570 RETURN 
586 s 

700 VO = 7680 : CL = 38400 s REM INIZIO MAPPA SCHERMO E COLORE 

7 10 REM VO=4096 1 CL = 37888 PER ESPANSIONE MAGGIORE Al +3K 
7£0 SA=7163tREM INIZIO MAPPA CARATTERI IN RAM 

730 VA= 15 : REM VALORE 4 BIT N1BBLE DESTRA 

735 : REM OEL REGISTRO CONTROLLO #6 DEL 6561 

740 MP-PEEK <38369 ) : REM MEMORIZZA NORMALE 

745 : REM VALORE REO ISTRO CONTROLLO MS 

750 POKE55 ,0: P0KE56 ,SAY£56i REM ABBASSA FINE MEMORIA 

755 iREM PER PROTEZ I ONE CARATTERI IN RAM 

766 PR INTCHR* ( 147 > iGOSUB £80: REM PULISCE 

765 REM AREA RAM CARATTERI 

770 POKE36S63 „MP: REM REGISTRO CONTROLLO «6 6561 NORMALE 

780 PR INTCHRS( 147) ; "QUANTI NUMER I " ; : INPUT NU : 1 FNU > 10THEM780 

790 PRINT 

800 FOR ! -0TOMU I 

8 10 PRINT" NUM" “ J 1 + 1 ; 

S£0 INPUT NU < I 1 

336 NU< 1 >=ABS(NU( I ) ) 

840 I FNU < I ) > 1 60THEN1 = 1-1 :PR INTCHR*< 145) i 

850 NEXT 

860 NU=ABS(NU)*£ 

870 PRINTCHR*< 147) i REM <C) GIOVANNI BEANl OTTOBRE 1934 
330 P0KE368G3 ,( (PEEK (36869 > AND MP)OR VA) 

885 REM PUNTA ALLA NUOVA MAPPA CARATTERI 
330 P0KE36873 , £5 
900 GOSUB340 
910 GO3UB420 
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9 £0 GOSUB 120 

930 IF FEEK <653)0 i THEN930 : REM ATTENDE TASTO ‘SHIFT 1 
940 PGKE36879 ,27 
950 GOTO760 
READY * 


100 REM ************************ 

110 REM * VIC MAGIC PER * 

120 REM * * 

130 REM * VIC 20 CON QUALSIASI * 

140 REM * * 

145 REM * CONFIGURAZ IONE * 

150 REM ************************ 

180 t 

170 C 1$= iC2$= "6* 

130 RV$=CHR$ < 185 :CL$=CHR*( 147 ) 

190 GOSUB 640 
200 MP^PEEK <36889 > 

2 i 0 P0KE3G8S9 , PEEK <36889 )0R 15 
220 PRINT CLS;SPCC44>; 

230 GOSUB 610 
240 POR I -0TO3 

250 PRINT SPC <2 > ; C2*iSPC<6>;C2*; SPC<6) JC2* 

280 NEXT 

£70 GOSUB S 10: REM <C> 1984 GIOVANNI BEAMI 
280 PRINTIPRINT 

290 PR INTTABCB5; RV*; * GOMMO DORÈ " 

300 PR INTTAB <4 > ; RV$; " C0MPUTERHCLUB " 

310 PR INT SPRINT SPRINT: PRINT; PR JNTl PRINT: FR INTsPR JNT 
320 PR INTTAB <6 >;RVS; " FRESENTA " 

330 FORI -0TO 100 
340 FQRJ =7TO0STEP- 1 
350 VAX=ENO < 1 ) *255 
360 P0KE7 168+J ,VAX 
370 NEXTJ , I 
380 FOR I -4 6 T02STEP - 2 
330 P0KE36867 , 1 
400 DL^£5 ! GOSUB590 
410 NEXT 
420 PRINTCL* 

430 PR £ NT ! PR I NT 

44 0 PR INTTAB <9) ; 14 UNI V 

450 PRINT 

460 PR 1 NTTTAB < 6 ) ; M MttAHGUI HC " 

470 PRINT SPRINT 

430 PR I NT " D I «GIOVANNI IDEAMI * 

490 F0RI-2T024STEP2 
50© P0KE36867 , I OR 1 
510 DL=70 : GOSUB590 
520 NEXT 
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530 GET WU$: IF WW**" M THEN 530: REM A TTEMDE PRESS * TASTO 
540 POKE 198 ,0 ? PGKE36369 ,MP ; P0KE368S7 , 174 
550 PRSNTCLì; 

560 : 

570 REM INSERIRE QUI CARICAMENTO PROGRAMMA 
575 REM PRINCIPALE DA NASTRO 0 DA DISCO ! 

580 END 

590 FOR J -0TGOL " NEXT 
600 RETURN 

ciò print spccs); ci«;spc<3>;cis;spcc3>;ci$ 

680 RETURN 

630 REM ** TRASFERIMENTO CARATTERI ** 

640 ROM=32768:SA=7 169 :€A=87 

650 FOR I = SATO <. SA +16 *C A > STEP2 

660 POKE 1 / PE£K C ROM > : POKE I + 1 ,PEEK tROM> 

670 ROM=ROM+l 
680 NEXT 

690 P0KE55 * 0 ? P0KE56 , SB/E36 

700 RETURN 

READY, 


1 00 REM 4 4 W-44 444**4*44 4 444444 


110 REM * EDCAR * 
180 REM *DI * 
130 REM * GIOVANNI BEAMI * 
140 REM * 4 
150 REM *TEL . 0504/80670 * 


160 REM «OGNI CONFIGURAZIONE* 

170 REM ********************* 

160 ? 

190 P0KE56 ,38: P0KE5H ,E8:REM ABBASSA FINE MEMORIA E INIZIO STRINGHE 
200 MC “71 68 * REM INIZIO MAPPA CARATTERI IN RAM 

2 10 MS-FEEK C 648 ) *256 ^ REM MAPPA SCHERMO 
220 CS *39400 : REM MAPPA COLORE 

230 I F MS- 4036THENCS ”37398 
640 MS =MS + 22 *8+1 
.350 CS=CS +28 *2 + 1 
?6© KK-0 ’ YY=0 

270 REM ** AZZERA CARATTERE ** 

28© FORJ*BTO?sPOKEMC*J ,©:NEXT 

290 POKE 36869 ,PEEK < 36969 >0R <MC/1 084 > +3 : REM PUNTA ALLA NUOVA MAPPA 
30O REM ** CREAZIONE SCHERMO ** 

3 10 PR INT*JB?G5432 10 VALORI" 

320 PRINT B a/ ? ? GOSUB450 sPR INT"-, " 

330 FOR I = 0TO7 

340 PRINT" al l" Mi REM 8 SPAZI FRA LE STANGHETTE 

350 NEXT 

360 PRINT 11 a ? s GO SUB 4 50 ; PR 1 NT " 

370 PR INTiPR INT! PR INETTAB < 4 > 11 (2 H 
380 PRINT 
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330 PR I NT ' Si : " : PR I NT 

4C0 PR ! NTTAB C 5 > " 0M = DISEGNA- 
LO FP IN7TAB <5> “^7 = CANCELLA* 

420 FR I MTTAB < 5 > ’1F8 = FINE" 

430 GCSLÌB7S0 
440 GOTO500 
450 F OR 1 = 1 T08 
•ISO FP INT " : 

■■'G MEXT 
450 RETURN 

450 REM *+ LETTURA TASTIERA *# 

500 GETR$: 1FR$=" " THENG0SUB6 la : GOTO500 

510 IFR*= "ITTHENIFYY* 154THENYY=YY+£2 

520 IFRt= "Q"THENIFYY>0THENYY=YY-S2 

530 IFR*= "H ,, THEHIFXX<7THENXX=XM+ 1 

540 IFR^s ’’ U" THENIFXX >0THENXX 3 XX- I 

550 IFRf * ” B“ THENCA= 170 ICO = 2 i GOSUB630 i GOSUB700 

5B0 IFR*="l|*TH£NCA = 160tCO= 1 !GOSUBB30!GDSUB700 

570 IFR± = “ «"THENSSO 

530 GOTQS00 

330 ! 

600 REM ** SIMULA CURSORE ** 

S 10 CA=PEEK CMS+YY+XX > 

SE© C D = P E E K < CS + YY + XX > 

630 POKEMS + YY + XX , 830 ' PQfcECS + YY + XX ,0 
640 FOR J= 1TO60ÌNEXT 

650 POKEMS + YY + XX # CA s POKECS + YY + XX ^CO 
660 FOR J “ 1 TQ60 ! NEXT 
670 RETURN 
630 s 

930 REM ** ACCENDE 0 SPEGNE UN PUNTO + * 

700 B 1=7 -XX 

710 BY=YY/£2 

730 1 P R i = "ir THE N7 40 

730 POKEMC+BY,PEEK CMC + BY )QR2 tB I 

73 1 PR lNT B a J * SFOR 3 * 1 TO 11 s RR I NT NsEXT : PR I NT “GglMISG * SGGTQ7S0: 

REM ACCE NO E IL PUNTO 

740 FOKEMC+BY ,FEEK < MC + BY> ANO <3555-2 tB I > 5 REM SPEGNE IL PUNTO 

750 REM ++ AGGIORNA VALORI SU VIOEO 

760 PR 1NTCHR* < 19 ) ? PR INT 

770 FOR J =0TQ7 

730 V$=STR*<PEEK<MC+J>> 

730 VS = LEFT* CV*+ ,l “ , 4 > 

300 P R I NT ‘"3" JTABC 1 5 ) J V $ 

S 1 0 NEXT 
880 RETURN 
830 ? 

340 REM ** USCITA 4M 

850 PR T NT : PR INT : PR INT : PR I NT t PR INT : PR INT s FR INT : FR 3 NT ; PR I NT t FR INT: PR 1 NT 
860 MG** "Si RETURN PER CONFERMA" 

S70 GETRS* IFR*O m "THEN930 
3S0 PRINTMG* 
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890 FDR J -0TO300 - NEXT 
300 F R I NT » nm H I MG*; « ETT» 

9 10 FORJ=0TO300: NEXT 
920 GOTQ870 

330 ]FRS< >CKRSC 13?THEN500 
940 PRINTCHR$< 147) * 

350 MC -340 

380 IFPEEK <G48>= 1BTHENMC = 1S£ 
370 P0KE36869,MC 
3S0 END 
READY, 


100 REM ************** ************ 

110 REM * "CARATTERI A 30*" * 

140 REM + « 

150 REM * PER V1C 20 CON * 

160 REM *QUALSIASI CONFIGURAZIONE* 

1 70 REM ************************** 

180 s 

190 CN-7 1 SS : REM INIZIO NUOVA MAPPA CARATTERI 

200 P0KE5G ,CN/£56iP0KE5£ ,CNX£56sCLR iREM ABBASSA PUNTATORI 

£05 REM FINE MEMORIA E INIZIO STRINGHE 

£10 CN=7 163 sREADCS: IFC$= fl *"THEN360s REM LETTURA CARATTERI NEI DATA 
£E0 CH=3276B+S*CASCCC^>-G4) 1REM CALCOLO INDIRIZZO 
££5 REM IN ROM CARATTERE LETTO 

£30 CN=CN+S ' REM INCREMENTO MAPPA CARATTERI RAM 
£40 : 

£50 REM ROUTINE ♦SLITTAMENTO' CARATTERE 

£60 POR J =0TG7 

£70 FK=0 

£S0 FOR I =0TO7 

£30 1F< CPEEKCCH + I )ANDC£tJ) > THENPK =PKQR£t £7 - 1 ) : REM VEDI ARTICOLO 
300 NEXT 

310 POKECN+ J f PK s REM SCRIVE BYTE TROVATO NELLA NUOVA MAPPA CARATTERI 
3£0 NEXT 

330 GQT02 1 0 : REM LETTURA NUOVO DATA 
340 : 

350 REM STAMPA SU VIDEO CARATTERI CREATI 
360 MC-PEEK C3S8S3 ) 

370 P0KE3BBB9 ,MC0R15:REM PUNTA ALLA NUOVA MAPPA C 7 1 68 1 C00 > 

380 RESTOREsPRINT' ^J" 

330 READC^s 1FC$- 11 * "THEN4 10 
400 FRI NTCS : GOTO 330 

4 10 IF FEEKC633XM THEN 4 10 1 REM ASPETTA ‘SH1FT* 

4£0 P0KE3686S ,MC:END : REM RIPOSIZIONA REGISTRO ED ESCE 
430 s 

440 REM LINEE DATA IN CUI INSERIRE I CARATTERI DA 'SLITTARE' 

450 DATA 

460 DATA * ì REM CARATTERE DI FIl^I LETTURA 
READY. 
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V uante > olfe, dopo aver compilato unii 
schedina, et siamo messi a sognare di far 
13 per poter, con t soldi vinti, vivere tran- 
quillamente per tutta la vita? Ma siamo 
poi cosi sicuri di poter vìvere tranquilla* 
mente per tutta la vita? Mi spiego meglio: 
siamo sicuri che ci basteranno per condur- 
re una vira agiata? 

Lo scopo di questo programma è quello 
di fornire una risposta a queste domande 
(possibilmente positiva! |, 0 programma sì 
basa sul presupposto che la vincita venga 
depositata in banca e che cigni mese si pre- 
levi una quota (QUOTA MENSILE), che 
ci permetta di vivere agiatamente e in base 
ad alcuni dall che gli forniremo ulterior- 
mente, ci indicherà per quanto tempo po* 
tremo continuare a prelevare denaro dalia 
banca* 

( onte dati input, oltre all 1 importo della 
VINCITA e alia Ql QTA MENSILE* il 
computer chiederà il tasso d'inflazione 
presunto e il tasso d'interesse bancario. 
Queste due richieste (INFLAZIONE e 
INI ERESSI j sì sono rese necessarie per 
rendere più attendibile il risultato fornito 
dal competer perché a causa ddJ'mflazto- 
IH iJ costo della \ it>\ continua ad aumenta- 
re; nello stesso momento però, sul nostro 
deposito in banca matureranno degli inte- 
ressi, Quando dovremo prelevare h quota 
successiva, non dovremo più prelevare la 
quota mensile da noi stabilita, bensì quella 
quota aumentata dell'Inflazione maturata 
fino a quel momento e in banca ci trovere- 






tempo necessario perché quesiti sì verifichi. 

Il computer trasformerà questa distanza 
in anni e mesi, poi la visuatizzarà, Dopo 
aver inserito i dati, il computer chiederà se 
vogliamo il PRELIEVO MENSILE' cine 
se vogliamo vedere quanto dovremmo in 
teoria prelevare ogni mese; se fa risposta 
sarà affermativa, subito appariranno i pre- 
lievi in sequenza* altrimenti apparirà un 
'OK che ìndica che i dati intermedi non 
verranno mostrati* 


mo la vincita aumentata degli interessi 
maturati anch’essi lino a quel momento 
ecc. 


X er capire meglio quanto detto, sii può 
far riferimento al grafico, 

\A‘ indica la vincita depositata in banca. 
Il segmento WET indica \A' piu gli interessi 
maturati in un mese, La retta che parte da 
T)‘ rappresenta Ll quota che dovremmo 
prelevare ogni mese. A causa dell 1 inflazio- 
ne, però (e del continuo aumento del costo 
della vita) dovremo prelevare sempre di 
più. Il segmento b Bf \ indica la quota prele 
vaia che, come abbiamo detto, cresce sem- 
pre più <BC magg. BICI magg, H2t"2., 
DDl magg. D1D2 magg* D2D3), II punto 
l P‘ rappresenta il punto in cui avremo pre* 
levato l'intero deposito t Interessi compre- 
si) e la distanza tra *0’ e *PI\ indica il 


Jj programma è strutturato nel modo se- 
guente. Tralasciando le prime righe, nelle 
quii lì è contenuta l'intestazione, dalla riga 
70 alla 100, dopo un CLR, troviamo il 
blocco INPUT; verranno chiesti, rispetti- 
vamente, l'importo delia vincita* nulla- 
/ione presunta espressa in percentuale, 
l'importo dei prelievi mensili e il (asso 
d'interesse bancario, sempre espresso in 
percentuale. 
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Alla riga 110 Inaiamo il ttòt di control- 
lo per coni rollare appunto se l’ imporlo del 
prelievo è minore rispetto a quello della 
vincila. 

In caso contrario ri computer stampa un 
messaggio che iodica che si cerca di prele- 
vare più dì quanto non si sìa potuto versare 
grazie al deposito. Nel Blocco 14(1-160, 


troviamo la proposta dì visualizzazióne dei 
prelievi mensili. Dalla 170 alla IÙ6 è pre- 
sente il blocco di visualizzazione del pre- 
lievo mensile. 

Dalla riga 20(1 alla 276, troviamo la se- 
zione contatori dei giorni peri calcoli degli 


interessi e dell'inflazione, le relative chia- 
mate di suhroutincs per i suddetti calcoli e 
infine, i tests per vedere quanto abbiamo 
prelevato c quanto ci rimane ancora da 
prelevare. Nel Blocco 280-3HIL troviamo 

l'apertura delle periferiche d'output e ru- 
sdta dei risultati. Infine troviamo il 'cuo- 
re 1 del programma e cioè la souhroutìne di 
calcolo de II' inflazióne e del montante esi- 
stente in banca e nella quale si fa uso della 
formula montante = capitale" (1 + i) eleva- 
to alla t* T rappresenta La percentuale, sìa 
d’ interesse che di aumenta e "t ‘ il tempo 
espresso in anni, 

Il programma e> corto e facile da digita- 
re. Quindi in bocca al lupo per il 13! 

Luca Cirillo 
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V^hiunque abbia a disposizione, crime 
memoria di massa, il solo registratore, 
avrà sicuramente notato la lentezza con 
cui è costretto a memorizzare o leggere i 
propri listati. 

Sul numero 12 di C.C,C* abbiamo stig- 
gerito un sistema che consente di dimezza- 
re i tempi di lettura di un programma ri- 
correndo all'alterazione di alcuni “punta- 
lori”. 

Tale procedimento è però limitalo alla sola 
lettura di un listato già registrato e, ben- 
ché valido, non risolte del tutto i) proble- 
ma della velocizzazione del trasferimento 
di informazioni. 1 però possibile "by pas- 
sare” le routine origina li Coni inodore (che 
intervengono in fase di lettura e registra- 
zione) c servirsi di altre routine, nettamen- 
te più veloci, in grado di svolgere le stesse 
funzioni con una sintassi diversa e, quel 
che più conta, in un tempo inferiore. 

Il programma in oggetto è il famoso 
! l ! RBO TAPE di cui abbiamo ottenuto il 
diritto di diffusione e ne abbiamo approfit- 
tato per inserirlo subito nella rivista su 
cassetta COMMODORE CLUB N. 3. 



figura, primo, il I URBO TAPE ma tutti i 
programmi presemi sono stati “'velocizza- 
ti 1 ricorrendo allo stesso programma. Ciò 
ha consentito di lasciare inalterato ai meno 
per ora il prezzo della stessa confezione 
(L. 4800) che, in caso contrario, saremmo 
siati costretti a ritoccare a causa di un 
aumento del costo dei nastro magnetico, 

È infatti intuitivo che aumentando la ve- 
locita dì registrazione diminuisce propor- 
zionalmente la quantità di nastro necessa- 


ria per immagazzinare ì dati. 

Como funziona il TURBO TAPE, 

na volta caricato il programma è suf- 
ficiente digitare N L N ed il tasto return af- 
finchè le roti! ine vengano automaticamen- 
te allocate nella parte alta della memoria 
(intorno a 50,000), 

Da quel momento la sintassi necessaria 
sarà identica a quella noia con l'unica dif- 
ferenza che il comando deve esser precedu- 
todal carattere di freccia a sinistra («-). 

ovvio che caricando programmi Ba- 
sic, utilizzandoli e modificandoli, i coman- 
di saranno sempre disponibili a meno che 
non si carichi un listato in L,M, (come 
spesso accade con i videogame), che occupi 
le stesse locazioni di memoria RAM, 
Quale è la velocità con cut opera il 
Commodore 64 dotato del TURBO TA- 
PE? Scopritelo da soli: neanche io, all’ini- 
zio, volevo credere che si potesse registra- 
re c leggere olla stessa velocita del disco 

AkvMiulra de Simone 
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SERVIZI PER L’INFORMATICA 


Via Montasio 28 - ROMA - Tel. 06/8922756 


CORSI DI PROGRAMMAZIONE BASIC 
CORSI DI PROGRAMMAZIONE ASSEMBLER 


• COMMODORE PLUS 4 

• COMMODORE 64 

• COMMODORE C 16 

• PERSONAL COMPUTER CBM 

• PERIFERICHE COMMODORE 

• ACCESSORI 

• PRODUZIONE SOFTWARE 

• ASSISTENZA SOFTWARE 

• ASSISTENZA TECNICA 

• LIBRI TECNICI 
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I Vie 20 E COMMODORE 64 


Ma Tra Q uanto Tempo 
Potrò’ Comperarlo? 



I igura 1 grafico che raffigura la nostra capacita di risparmio rispetto al costo di un bene. 
[ .'acquisto del bene è possibik a partire dai punto P- 


dìfferen/a ira questo punto {‘X’ sul grafi- 


I-j/egyendn i giornali e guardandosi un pii 
in giro, ci si può rendere conto di come i 
prezzi aumentino con un ritmo 
impressionante. 

Se noi, ad esempio, cominciamo oggi a 
mettere da parte i soldi per poter in seguito 
acquistare un ciclomotore, quando avremo 
raggiunto la cifra necessaria, avremo una 
grossa delusione. "Il prezzo è aumentato 
del tot %„ ci dispiace’ ci sentiremo dire 
dal venditore. F. con la coda tra le gambe, 
torneremo a casa a fare t calcoli per stabi- 
lire quanto ci manca per raggiungere la 
sperala quota... aumentata dell' inflazione 
maturala fino a quel momento. Lo scopo 
di questo programma è quello di prevenire 
questi inconvenienti. Esso si basa sul pre- 
supposto che i risparmi si versino in banca 
o meglio, si versi tuia quota costante men- 
silmente e che la banca applichi una certa 
percentuale di interesse. 

D opo aver dato il + RUN\ il computer 
chiederà iJ costo del bene, cioè it prezzo 
attuale di ciò che interessa acquistare, se- 
guito dal tasso d’inflazione presunto, dalla 
quota mensile che si versa e dal tasso d'in- 
teresse bancario. 

Conclusa questa prima fase, sul video 
apparirà un messaggio di attesa e dopo mi 
lasso di tempo 4 hi cui lunghezza dipende 
dal rapporto bene* versa menti), apparirà 
un secondo messaggio, precisamente una 
richiesti! d' indirizzamento dei dati output. 

Essi possono essere visualizzati o stam- 
pati. Nel primo caso bisognerà premere 
*S\ altrimenti ‘C 1 e lutti i dati immessi 
appariranno su carta, seguiti dal I FMPO 
necessario per raggiungere la somma spe- 
rata (che non sarò la somma immessa, 
bensì aumentata dell'inflazione maturata 
fino a quel momento). 


Dal grafico pubblicalo sarà possibile 
apirc meglio quanto spiegato. Il costo del 
bene è rappresentato dalla retta avente ti- 
ngine in VA’ che, come possiamo notare, è 
Iti continuo aumento. 

Il nostro primo versamento è rappresen- 
talo dal punto TE. Il segmento 'B'-'R] \ 
rappresenta 1‘ incremento che la quota (ca- 
pitale) ha avuto col passare del tempo. Il 
segmento TH’-‘Cr rappresenta il secondo 
versamento o meglio, il capitale dopo que- 
st' ultimo versamento. 

tSe continuiamo ad incrementare il costo 
del bene e contemporaneamente i versa- 
menti, si arriverà ad un punto (P) in cui il 
capitale in banca sarà uguale o addirittura 
maggiore rispetto al prezzo del bene: la 


co) e l'origine fO* sempre sui grafico), 
rappresenta il tempo necessario allineile 
l'evento si verifichi. Si potrebbe anche ve- 
rificare il caso in cui il valore dell'Inflazio- 
ne sia maggiore rispettò alia somme dei 
capitale esistente in hanca maggioralo de- 
gli intere*!; in questo caso la retta e la 
spezzala del grafico uim sì in centreranno 
mai: si parlerà allora di RETTE DIVER- 
GENTE, Per ovviare a questo inconve- 
niente. bisognerà o allineili are i versamenti 
mensili o cercare una hanca che applichi 
un (asso d 1 interesse maggiore o... scegliere 
un altro bene. 

Comunque non è detto che si debba 
sempre verificare quest* ultimo evento (ret- 
te divergenti). Il computer calcolerà ogni 
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TELCOM 

DUE CARTE IN PIU’ 

LA NUOVA STAMPANTE JUKI A MARGHERITA 
LA NUOVA STAMPANTE MITSUI AD AGHI 


JUKI 6100 

finalmente una stampante A MARGHERITA 
accessibile a tutti per il suo BASSO COSTO. 

La caratteristica fondamentale di ima stampante 
a margherita è la stampa a carattere pieno che 
garantisce una qualità di scrittura indispensabile 
per la corrispondenza automatica e il trattamento 
delle parole. L alto prezzo di queste stampanti ne 
ha sempre impedito l'utilizzo in sistemi a basso 
costo quali personal desk-top computerà e 
mtcro in genere. 

I L KI 6100 è la prima stampante 11 margherita 
che garantisce: 

- prestazioni elevate 

- affidabilità 

- qualità di stampa 

- prezzo coerente con i piccoli sistemi 


MITSUI Serie MC 

Le stampanti della MITSUI rappresentano la 
continuità Telcom nella politica del 10W-C0ST 1 
con caratteristiche e qualità competitive: 

- Veloata dii 20/1 60 caratteri al secondo 

- Testina a 9 aghs; 00/132 colonne 

- Trascinamento per fogli singoli, per rotoli o per 
modulo continuo 

- Interfaccia parallela e seriale 

- Scrittura normale; espansa e NLQ 

- Set dì 95 caratteri 

- Affidabilità elevata 

- Ridotto costo di esercizio 

MI TSUI Serie MC; le stampanti giuste” 
per mirro e personal* 
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JUKI 6100: un pa*so avanti in tecnologia 
un passo indietro nel costo 


gioca la catta 


Telcom s.r.l. - 20148 Milano - Via M Givilali. 75 




Tel, 4047648 (3 linee rie. aut.) - Telex 335654 TELCOM l 

; ■ f. 


Liìe. 7 * * 






r- 


JÉÌ II 




advgiieam 







Via in ijuAnlo Knipd potrÀ fritti prruHu? 



giorno il valore del bene rivalutato (- lu- 
nazione) e il capitale esistente in banca, ne 
farà la differenza e,., continuerà cosi, fino 
a quando avrà raggiunto il punto d'incon- 
tro o verificato il caso delia divergenza; se 
si verificherà il secondo caso il computer 
fermerà l'esecuzione del programma, al- 
trimenti tramuterà i giorni in mesi o addi- 
rittura in anni, dopo dt che wsualizzarà 
una richesta di indirizzamento dei dati, 
cioè se vorremo l'output su schermo o su 
carta: se premeremo ’S' avrenin Ja visua- 
lizzazione dei dati, altrimenti la loro 
stampa, 

p 

J. assiamo ora alla descrizione del 
programma: 

tralasciando le prime 5 righe [fintesi azio- 
ne, troviamo, dopo un *t’LR\ il blocco in- 
put coti le richieste del 'COSTO BENI’’ 
/INFLAZIONE PRESUNTA* fin percen- 
tuale), VERSAMENTI MENSILE e infi- 
ne gli 'INTERESSI BANCARI' < sempre in 
percentuale). Alle righe 100-1 10 troviamo 



la visuali/za/ione del messaggio <f attesa 
per l'elaborazione; alla 120 il primo test 
per controllare che i versamenti non siano 
maggiori del prezzo dei bene, con relativa 
visualizzazione dì un messaggio nel caso in 
cui si verifichi il caso. Nelle righe 140-180 
ino iamo la preparazione dei dati da in via- 
re alla sub routine. il sallo a quest ultima, e 
il salvataggio in alcune variabili dei dati. 

Alla riga 1911 è presente il test per vede- 
re se si è raggiunta la somma; in caso posi- 
tivo si passerà alle successive righe di indi- 
rizzamento dei dati in output, altrimenti si 
salterà al confronto per vedere se le rette 
sono divergenti; in caso affermativo, sì 
aumenterà il capitale in banca del nuovo 
versamento e sì tornerà a confrontare gli 
importi. In caso negativo il programma si 
bloccherà. Infine alle righe 400-410 Irò* 
viamo la suhroutinc di calcolo dd capitale 
e dell'Inflazione. 

Il programma è facile e corto quindi.,, 
auguri peri futuri acquisti!!! 

Luca C irtJlo 


10 REM ********* ******************** 

20 REM + LUCA CIRILLO < MONZA > * 

25 REM + * 

30 REM * FRA QUANTO TEMPO FGTRQ ’ * 

40 REM * ACQUISTARE LA MOTORETTA? * 

50 REM ***************************** 

So clr; input vjmmim c-ostci bene ";cb 

70 I INPUT" MINFLAZ IONE PRESUNTA CAV ";IN 
S0 INPUT 'VERSAMENTI MENSILI " ; VM* AM=VM 
30 I INPUT" m INTERESSI BANCARI t m A) "MBSN-30 
100 PR l NT MB F T i T TENDER E PREGO !" 

110 PR I NT " MSTO ELABORANDO ! ! “ 

1Ì5 PRINT" * TIENI PREMUTO UN TASTO)" 

120 IFCB > VMTHEN ì 4 0 

l 30 FRI NT ' LJMM JA I A COMPERARLO H!" 

131 PR I NT " Si L DENARO LO HAI GIÀ' "SE ND 
140 I I = I l +NsL=L+NSC=CB! I = I N/ 100 
150 T= l 1/360 ! GQSUB400 S A = MT 
180 C=AMi I=IB/100:T=L73G0 
1 70 GOSUB40O: A 1 =MT£ 

ÌS0 AÉ=A-A! 

13 1 PR I NT "DIFFERENZA * I NT < A 2 > 

1S2 FRI NT 'PREZZO BENE " INT <A > 

133 PRINT "CIFRA IN BANCA " I NT < A 1 ) ! PR I NT : PR 1 NT 
1 64 IFPEEKC 137) =64THENÌB4 

130 IFAE >0THEN3 10 

131 POKE 19B ,0 s L4A I T 133 , 1 
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Mn trii quanto Itm|xi pttfro flMnperflrk) " 



2CC FLINT |J -JMM DUTPUT SU SCHERMO O CARTA ? <S/C>” 

E 10 GETnf; IFA£* " 3 ''THENOPEN3 ,3iGGTO£40 
SE3 3 F A $ . ; "C 11 THE NE 1 O 
E3D vF EH3 ., 4 

E- 0 FR INTASI , "jJHIL BENE AVENTE COSTO DI £ “'CE 
ET0 FR INTH3 / 11 BVERSANQQ MENSILMENTE £ "VM 
c55 PR 1 5 -iT*# 3 "MAL TASSO D l INFLAZIONE DEL "IN 11 
£5S FR TMT# 3 , "BALL ' INTERESSE BANCARIO DEL " I B 11 Vi " 
£80 A A = ! MT < ! I/3G0 ? 5 I I = I I -AA-1360 : MM= IMT < I I /30 > 
270 I I - I I -MM* 50 i PR I UT# 3 , H «F OTR A I COMPERARLO " 

£;=□ FRI NTttS r ,r g|TR A " A A 11 /AA 14 MM " YMM " I I M /G G , 11 5 

ESO FR INTW3 : CL0SE3J END 

SOS I I - l l -30S PJ- 1 i GOTO 140 

£10 Irli -OTHEN360 

3£0 1“ I I -733THEN3S0 

SCO ! r A2 < A3THEN3 G0 

350 PP 1 NT " mtMStmmmmm& FTTF DIVERGENTI MI" SENO 
380 A£ = A£ s IFZ = 1 THENZ = 0 t GOTO 1 40 
370 imo 1MT< I 1/30 ? *S 0 THEM 1 40 
380 := ; iL=0: AM-MT 

3 SO AM=AM + VMs A i = AM! GOTO 180 

100 REM ** SUE R E CALCOLO CAPITALE **. 

4 10 MT = C % < < 1 + 1 > t T > ! RE TURM 
READY * 
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Tutti coloro che comprano un per* 
sonai computer lo colgano, in ge- 
nere. ad un televisore domestico e si 
accorgono, dopo un po' di tempo, 
che questa forma di visualizzazione 
non è delle più felici. Abbiamo già a- 
vuto modo di eh re che l'uscita video in 
alta frequenza (via UHF, tanto per in- 
tenderci) si effettua mediante un cir- 
cuito che trasforma il calcolatore in 
una vera e propria stazione trasmit- 
tente, pur se di modestissima poten- 
za, e, come tale, in grado di esser "ri- 
cevuta da un qualsiasi televisore, 
proprio come se si trattasse di un te- 
lefilm di Dallas. 

Con questo sistema, però, pur se si 
realizza una considerevole economia, 
la qualità dell immagine è inevitabil- 
mente modesta, appunto perchè il 
segnale del computer è dapprima co- 
stretto ad esser “modulato" in modo 


da trasformarlo in un segnale ricevi- 
bile da un televisore, e poi nuova- 
mente "demodulato” (all'interno del 
TV} per esser trattato e reso visibile 
Con i due passaggi descritti, ali im- 
magine si sovrappone un segnale, 
genericamente noto sotto il nome di 
‘'rumore", che è purtroppo inevita- 
bilmente generato ogniqualvolta un 
segnale attraversa uno stadio elettro- 
nico. 

Analogamente, un brano musicale 
ascoltato dal vivo appare decisamen- 
te diverso se riascoltato col registra- 
tore e, a maggior ragione, quasi in- 
comprensibile se si registra il brano 
con un secondo registratore che pre- 
leva il segnale dal precedente, in 
cascata. 

Una immagine decisamente miglio- 
re si ottiene collegando il personal 
computer con la presa speciale che è 


ormai in dotazione dei moderni tele- 
visori. Attraverso di essa, infatti, si e- 
sclude la parte in alta frequenza e si 
elimina, tout court, l'introduzione de! 
''rumore''. A parte il fatto che il con- 
nettore descritto è di serie solo su al' 
curii modelli di punta dei moderni TV 
color, la qualità della visualizzazione 
non è delle migliori perché il TV na- 
sce per soddisfare esigenze in cui la 
qualità elevata sarebbe uno spreco. 

In un personal computer, però, la 
differenza si nota eccome, a seconda 
se sa utilizza un comune TV, un TV 
dotato dr ingresso speciale ed un 
monitor progettato appositamente per 
il collegamento con calcolatori, Nu- 
merose sono le differenze sulle quali 
potremmo soffermarci ma, per esser 
brevi e per non ricorrere a termini 
tecnici difficilmente comprensibili, e- 
samineremo solo alcuni dei motivi 









che pongono su di un piano netta- 
mente diverso un monitor da un co- 
mune televisore. 

Approfitteremo di queste note per 
presentare i monitor PrandonL 

• La nitidezza, \ caratteri appaiono 
ben definiti, precisi nei contorni e 
perfettamente leggibili anche a di- 
stanza ravvicinata. L'articolo che sta- 
te leggendo (e tantissimi altri) è stato 
scritto ricorrendo ad un word-pro- 
cessor e ad un monitor Prandóni che, 
anche dopo un numero prolungalo di 
ore, non ha minimamente affaticato 
la vista. 

• / colori. Questi sono ben definiti e il 
confine di due zone diversamente co- 
lorate è ben riconoscibile Se un limi- 
te ce, questo- è dovuto unicamente ai 
limiti del segnale del computer ado- 
perato (Commodore 64). 

• Uniformità della luminosità e della 


densità del colore in ogni punto dello 
schermo. Le Stesse videate, visualiz- 
zate con un comune TV colon pre- 
sentavano sfocature ai bordi che, di 
scarsa importanza nel seguire pro- 
grammi televisivi, costituiscono inve- 
ce un difetto nei caso di utilizzo di 
W/P, istogrammi eccetera. 

1 monitor Prandom si presentano 
con una estetica davvero moderna e 
molto piacevole, La possibilità di o- 
rientare io schermo nelle quattro di- 
rezioni, grazie ad un nodo sferico po- 
sto alla sua base, non può che essere 
apprezzato da coloro che sono co- 
stretti a porre l'unita video in zone 
troppo elevate o troppo basse a cau- 
sa del limitato spazio disponibile sui 
tavolo da lavoro. 

L'interruttore, posto al di sotto del- 
io chassis, e i comandi di luminosità, 
coiore e suono posti sul retro, parte- 


cipano a conferire quell'aspetto puli- 
to, piacevole ed “essenziale" tanto di 
moda oggigiorno, Sul retro trovano 
posto la presa tripolare di alimenta- 
zione, la presa- ad otto poli e due bi- 
polari per gli ingressi. Non dimenti- 
chiamo, infatti, che ci troviamo di 
fronte ad un monitor di caratteristi- 
che professionali che accetta in in- 
gresso i segnali provenienti dagli 
Standard piu diffusi dei computer, tra 
cui il noto RGB in cur si prevedono 
tre segnali distinti per i tre colori 
fondamentali. 

È ovviamente possibile la presa per 
il videoregistratore e. a richiesta, si 
forniscono i cavetti di collegamento 
per computer che non rispettano ri- 
gorosamente le convenzioni interna- 
zionali. 


Alessandro de Si mone 
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I 30 FOK.E36B69 , S55 ! P0EE3S379 , 33 

= 09 PPIMT" '**• 


£16 r OR 1 = 71 6STOS 185 : POKE 1 , 0 : HEKT 
££6 POP I = 7 1 787*07' 183 : PEROR * POfE 1 , R : NEXT 
-7 18^T07131 i REftDB 3 POKE I , B ! NE XI 
-10 POR I “ 7 1 9ET07 199 : PEPIDC: POPE 1 , C : MEX f 
£50 FOR I ~?£ BOTO 720? : REpDD : POKE I ,UiMEX7 
£ee FORI =7£03TO7£ 15 : PERDE :F 0 KE I ,E;flEXT 
£70 PUR 1 =72 1ST07223 : RERDF :PGKEI ,F : NEXT 
£80 PERDO 
£90 IFG-- 1THEM3SB 
300 FOKEG « 1 


V (pw 

t 


k^cnpu (lei gioco è condurre Mario (Lillo 
scimmione che si trova in cima alle sca- 
le. Questo per ben due sulle, salendo per 
gli scalini e saltando i barili che rotola- 
no giù: tulio va fallo in un solo minuto 
di gioco. 

(ili ostacoli sono i barili che potete esi- 
tare saltandovi sopra guadagnando un 
punteggio per ogni salto. I n bonus vie- 

102 RE II K IMG KONG 

110 REM PER VIC 20 INESPANSO 

1£9 = 

130 REM DI ANDRE A CAMPIONE 
1*10 REM Vi™ DELLE RONDINI, 10 
100 REM CAGLIARI 


ne assegnato ogni voliti che raggiungete 
le cima. 

Il gioco termina se scade il tempo sta- 
bilito! se un barile vi piomba addosso n 
se, saltando un barite, gli finite sopra sen- 
za scavalcarlo, 

Andrea Campione 


3‘iB GOTOeB0 



320 F0K.E7727 ,5 : P0KE77^3,G 

330 0 = 8 153 : N=7750 s R = 7890 ! T = 79G8 è Y-86BG ì P =000000 ! T I * - 

33 0 P0KEH,2 : POKER, 2 : FOK.ET , 2 J FOKE f\ £ 

350 F0KE37153 I E 7 : NO - 0 
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880 POKE3SB?4,0 
830 FDR2=1TO10:ME^T 
900 RETURN 

9 10 PP I flT " A [ PERSO ! ! ! ! f ! ! " 

320 GETA*5 IRA*- " "THEN920 

33B FOP I - 1 TQ1 000 ì MESTI RUM 

940 0ATA255, 123, 129,235,255, t29, 123,255 

330 DA I Ab8 , 126 , 133,2 19,23 l ,2 19, 189,60 

980 DATASO , 128,299 ,23 1 , 123,239,239,80 

370 DATA 2 4 ,26 ,10 , 30 , 104 ,8 ,20,34 

380 0ATA60 , 30 , 102, 128, 127, 127,33,33 

330 PATA93 ,93 ,23 , 127,33,33,227,227 

1000 DATA 7763 ,7783, 7770 , 777 1 ,7772,7773 

1010 DATA7774 ,7 775 , 7776 ,7777 

1020 PATA7773, 7773, 7780, 7781 

1030 DATA7804 ,7305 ,7806,7807 ,7808 

1043 DATA733I ,7832,7833,7834,7835,7838 

1050 DATA7839, 7860 ,7361 ,7884 ,7885,7886,7887 ,7888 

1086 DATA791 1 ,7912,7313,7314,7337,7960 

1070 DATA79B3 , 7984,7335 ,7336 , 7337 

1080 DATA7938, 7989, 7390, 7991 ,8014,8015 

1030 0ATASO1S ,8017 ,3018,8019,8042,8043 

1100 DA TA304 4 ,3045,3046 

1 1 10 PATA3069 ,8070,30? 1 ,8072,8073,8074,8075 
l 120 DATA807G, 8077 ,3078,8079,8080,808 1 
1130 OATA8082 ,3033 ,8084 

1 140 0ATA8 107 ,3 108 ,8 103,8132,3133,8 134 

1 150 DATASI 35,8 136,8 137,8 133, 8 139, 8 140,8 14 1 

1 160 DATASI 4 2, 8 14 3, 3 144, 8 145, 8 146, 3 147,8 148 

1 ! 70 DATASI? 1 ,3172,3173,8174,8 175,3176,8 177 

l 180 DATA8 178,8179,8130,8181 ,3182,8183,8184,3185,-1 

READY L 




xxx STELLA CI *** 




BY CAST 


le** CALE IDOSCO p t 0 *** 
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■COMMODORE 

CoNTATEMPO 


Un programma utile per avvisa- 
re oratori frappo chiacchieroni 


Iti assemblee condominiali e scolasti che 
o in riunioni sindacali, fino ai piò sem- 
plici consigli.., familiari* capita spesso, 
purtroppo, che un oratore, convinto di 
dire cose molto interessànti* intrattenga 
d pubblico per troppo tempo creando di- 
sagi sin in coloro che devono parlare do- 
po di Ini, sia nei suoi stessi sostenitori che 
si accorgono del tempo che passa ma non 
sanno come intervenire per tarlo smet- 
tere* 

Questo semplice programmino, fatto 
girare nella sala delle riunioni, consente 
di inserire in memoria i nominativi di cin- 
que persone ed il tempo assegnalo a cia- 
scuna dt esse. 

umido il programma "parie 11 mi 
grosso orologio viene visuali zzato sullo 
schermo segnando il tempo che passa. 
Non appena il tempo assegnato scade, un 
breve segnale sonoro viene emesso ad 
ogni secondo, I /oratore, dopo un po' di 
tempo, dovrebbe capire l'ami fona anche 
perché il TÌIP, a lungo andare, diventa fa- 
stidioso. 

Nessuno, quindi, si sentirà a disagio 
per avvisare il eli lacchi ero ne: scaricale hi 
responsabilità dell 'imbarazzo sul 
computer... 

f A hio Sorgalo 



S0C E F‘ 1 

110 REM 

130 REM 

130 REM 
100 REM 

170 REM 


COMTPT£MFO per COMMODORE Ed 

er 

FRBIG SORGRTO 


i 30 
130 
300 
310 
330 
?30 
3 J0 
350 
330 
370 


R -T f. I ' 
R3?* 3 1 

m ^ 3 

PT*< d / 
5 k 
r$ ; e ;■ 

fi f \ 7 1 

r r: 3 ' 
m»: 0 


- ,j d - \ 

* • ■ ■ . i ■ 


v — il 


è 

—1 J 

r 

■ 1 V 

■ ■■ 

/ 

■ » 1 

r~ 

1 

S -V 

/ 4 


i 

.1*— 

I* 

^ V J 

p 


/ 

— s. . 


■ 4 J | * ■ H( | * 

— ■ 

,' * > f , * f M * * 

, |s l r 

4 ■ ri E M * 

i I I» ■ < I * * 


i * I * * p 


rii, 




. r ■'/. . \i . . i\ 

' -I . . !' ■ I . . |. . . |\ 


/ 


4 * * 4 


m . . i! . . i . . n . . i\ 


Computer Club ■ 47 


t imtnU'inpa 


230 REM TRASFORMA I NUMERI CONTEN. f-EL VETT.AS E LI PONE NEL VETT. B* 

290 FORT=0TO9 

300 FORK= 1T023:K*=MI0*< A*v T> ,K , 1 > 

310 !FK*< ,, THENC»< T > <*■; T> +K? : NEXT! NEXT i GOTD330 
3£0 OfC T > *C» T > + * ”!NEXT!NEXT 

330 FORT-0TO9 s FORK=U TO£83TEP4 iBf( T>=B*( T>+MIDS< C*< T> ,K,0 ' ' " TTIBM" i NEXT 
3-10 BP T?*LEFT« BT'. T> ,LEFK &* { T) )-5 >+ ”tHXH] " * NEXT 
350 REM CHIEDE 1 NOMI E IL TEMPO. 

360 INPUT “JQUAMTE PEPSONE (MAX 5 > * ; PR : IFPR< 10RPR >5THEN360 

370 FORT= 1T0PR SPRINT “J^IOME " ;TfCHR*< 20? t "0 PERSONE! " i INPUTNO$< T > : NEXT 

330 PR IMT’LFER OGNUNO DI VOI OECIOETE IL TEMPO” 

390 PRINT "A □ I5POSI2 IONE E DIGITATELO t-EL FORMATO ! " 

190 PRINT TAB' 17) "JHHMMSS" 

1 ! 0 FORT” 1 TOPR 

1£0 PR I NT “ SII L TEMPO DI " f MO*( T? f s INPUTTW T> 

130 IF LEFK T*r TJX >6THENPR IMT"CXXJ" *6OTO420 
110 F ORE 55 I T06:H*=MID*< T*< T> ,K , 1 > 

150 IFVAL'! H*> -OANDH**’ > *9 * THFhPR [NT* ITTI * ÌGOTO420 
460 NEXT 

47G FORK. = IT06STEP2 

133 1FMID*( T*C T> , K. ,2) >MI0*( "235359 ”,K , £ JTHEMPR 1MT "CXCl" : GOTO420 
130 NEXT SNEXTSP0KE54 236 , 10 
500 REM ESEGUE IL CONTEGGIO 

510 FORT = I TOPR : PR INT* J3RA E' IL TURNO □ I ì M“ : PR INT “ 3 *HO*(T)'' «*' 

320 PR I NT "SICHE DISPONE DEL TEMPO ! "T*< T) "3" 

530 PRINT " SPREMI UN TASTO PER INIZIARE IL CONTEGGIO" 

54 0 FR I NT ' EO UNO QUANDO PER INTERROMPERLO ’ : PGKE 1 38 , 0 s HA I T 193 , H POK.E 198 ,0 

550 TI T= "003000 “ SCK.=0 

560 PRINT” MgmiMWMW m mmW “ TABt 5 ) J 

579 FOR J - 1 7 OS : PR I MTB*< VAL 1 ! MID*t TI*, J , 1 ? ? > J ! NEXT 

533 1FTI*=>T*' T>THENGOSUBS20 

530 IFTT=TI*THEN590 

600 TT=TI*itìETA*: IFA*= “ ” THEH5S0 

610 CTT’t T ) = T I * : FtEXT: G0T0653 

6E0 CK = 1 "• P0KE54276 ,0 : P0KE54277 ,0 : P0KE5427S , 0 * P0KE54277 ,9 = P0KE54278 ,0 
630 P0KE54276, 17 : P0KE54273 , 40 s P0KE54272 , 38 : RETURN 
640 REM MOSTRA i TEMP I IMPIEGATI 

650 PR INT” J” : PORTAI TOPR: PR INTNO*< T> ! " HA IXEIEGATO “;CT*CT> 

660 FRI NT "SCONTRO IL TEMPO PREVISTO DI!"T«TJ 
670 FORK. - 1 T046 • PR INT " — " ; : hEXT; NEXT 

680 PRINT*g PREMERE UN TASTO PER CONTINUARE*” 

690 FOKE 1 98 , 0 * HA ITI 38 , 1 
700 MA -0 ! FORT = 1 TOPR 

7 10 CV*VAL< CT*( T) > -VAL( T*< T) ) S IFCV >=MATHENMA=CV i MA* = NO*C T> 

720 MEXTs 1FMA=0THEN760 

730 PP I NT ■ . MB ' 1 MA* ; ” E 1 UNA PERSONA CHE CHIACCHIERA TROPPO!" 

740 PRINT "HA SUPERATO PIU* DI TUTTI"; 

750 PRINT" IL TEMPO ASSEGNA TOGL 1 . JET* 

760 PRINT" PREMERE UN TASTO PER RICOMINCIARE* 

770 FOKE 1S8 ,0 l WA IT 198 , 1 IPOKE 1 98 ,0 '■ GOTO360 

READY. 
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Idea n, 3 

Registratore dedicalo. 

(Dedicalo a chi vuoi tu). Memorizza dati 
e programmi su normali cassette 
magnetiche. 

Idea n. 4 

Il plot tersi amputile. 

Una matita in mano al computer. Scrive, 
disegna, fa ì grafici, stampa a 4 colori. 

L. 37S.OOO + IVA 

Idea n* 5 
La stampante. 

5 modelli tra cui scegliere. 

Per stampare velocemente i tuoi 
programmi (anche a colori), 
corrispondenza, testi, libri. 

Idea n* 6 

Il monitor a colori professionale, 
Schermo da 14” ad alta risoluzione e 
audio incorporato. 

L. 690,000 + IVA 

Idea n. 7 

Commodore 64 Executive, 
lì personal portatile* un regalo per veri 

Executive. Monitor da 5” a colori e 
disk drive da 170 K incorporati. 

E un prezzo davvero speciale che solo 
Commodore può. 


Tulio fantastico. 

Scegli qui, fra tanti regali intelligenti* 
il più bel dono di Natale, 

Per le* per un amico, per i tuoi figli. 

Per giocare* studiare o lavorare* 

Per inventare mille applicazioni creative. 
Per accendere la fantasia* l'entusiasmo, 
il sorriso di dii sai tu. Sono proposte 
Commodore* il n. 1 delfinf ormatici 


Idea n* 1 
Commodore 64. 

Il pm venduto nel mondo. Grande 
memoria* alta risoluzione grafica, 
sintetizzatore sonoro professionale, 
effetti tridimensionali. Scoprirai che mai 
un grande personal è costato cosi poco! 

Idea n, 2 
Il disk drive. 

Potente, memorizza fino a 170.000 
caratteri e accede in tempo reale agli 
archivi dati* Una sorpresa; è il meno 
caro che c’è* 

Lire 630.000 + IVA 
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ICOMMODORE 64 


Ridefinizione 

DEI C AR ATTERI 


Il programma faeilila Ja programma- 
zione di un nuovo set di caratteri. Per fare 
ciò atriniziu del programma viene trasfe- 
rito il set rti caratteri residente ■'ti ROM, 
tramite una routine in linguaggio macchi- 


na t\edi fig, I), nelia RAM a partire daJ- 

J’indirìzzodi memoria U2KK, 

La me mori/ nazione del nuovo set di 
caratteri avviene tramite lutiti/zo di una 
routine in linguaggio macchina i vedi fìg. 


2)» mentre il caricamento dei dati relativi 
al nuovo set avviene tramite La routine 
rappresentata in figura 3. 


444444444+444444444+ 

+ 4 

* spostamento dati * 

+ 4 

444444 ** 4 * 4 + 44444*44 

lDa #10 
STA Sftì 
L DA #100 
STA 1FC 
L DA 110 
STA 1FD 

Figura I: trasferimento del set d= caratteri da Kom a Kam 


lad 

inu 

* 

f 

sta 

1FE 

; J MNÀG A Z. INO. DESI INAZIONE 

lDX 

# a 

; NUMERO DI BLOCCHI DA I K A 5 F • 

ldy 

«0 

IlHMENS. BLOCCO 1256 PAROLE! 

LOA 

( 1F B ) t Y 

; LEGGE un elemento 

STA 

1 i F □ 1 . Y 

JTRASFERISCÉ l'ELEMENIG 

DLY 


JACGIORNA puntatore parola 

B NE 

1F9 

ÌCGMTR, TR ASF , 256 PARUlE 

LNC 

IFC 

; LnCR. PUNTATORE SORGENTE 

J NC 

1 F E 

; JNCft* PUNTATORE DESTINAZIONE 

DE X 


ìaggiorn* il cont.del blocco 

ft NE 

1F l 

;CaNTrt*TRASF . BLOCCHI 

RTS 


;RI TORNA 


i 

; I MMA GAZ. IND* SORGENTE 


44*44 44 4 


; * 

+ 


1 * 5AYE + 


* 

4 


44444444 


LOA 

*0 

5 LUNGHE Z2 A NDm£ FILE 

JSR 

1EFBD 

i CHI AMA ROUTINE SETNAM 

LO A 

# 1 

; NUMERO fi l f logico 

LDX 

# 1 

;MANDA I DATI AL R E G * 

LDY 

#1 

; INDIR IZZQ secondario 

JSR 

IfF B A 

t CHIAMA ROUTINE SETlFS 

JSR 

IfFCO 

J C H I A M A ROUTINE OPEN 

LOA 

10 


STA 

1FB 


LDA 

130 


STA 

IFC 

; I MMAGAZ. INO* SORGENTE 

LOX 

IO 


LDY 

150 

i I «MA GAZ. INO. [)f ST INA* 10I.E 

L DA 

#1F0 

\ I NO* P A G* 0 INI Z tTRASF »DAT I 

JSR 

1FF D8 

JCHIAMA ROUTINE SAVÉ 

LDA 

II 

; NUMERO F IlF logico 

JSR 

IFFC3 

i CHIAMA ROUTINE ClGSE 

RTS 


TRI TORNA 

Figura 2: 

routine per la memorizzazione del nuovo set di caratteri 


f 



4 444444 4 


+ 

4 


4 L D AD * 


* 

4 


444444*4 


LDA 

HO 

^LUNGHEZZA nome file 

JSR 

1FFBD 

ìCHlAhA R0UT1NF SrTNA" 

LOA 

4 1 

; numero f le logico 

LO* 

* 1 

; MANDA I DATI AL R E G * 

LDY 

■ 0 

; INDIR 1 ZZO SECONDAR I 0 

JSR 

%f f a a 

ìCHIAHA ROUTINE SFTeFS 

JSR 

IFFCO 

; CHI AMA ROUTINE OPEN 

LDA 

*0 

JPUNT.PER CARICAMENTO 

L D x 

#10 

■ 

LDY 

#S3G 

:IND*PARTEZA BLOCCO DuT, 

JSR 

1FFD5 

; Ch I AMA ROUTINE LOAD 

LDA 

# 1 

; NUMERO del f ìle logico 

JSR 

1FFC3 

% CHI AMA ROUTINE CLOSE 

RTS 


; RITORNA 

Figli' a 3: 

routine per 

il earieamcnu’i del numn ^ei lù carotieri 
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hidrfiimniar dri CHÉftÉltm 


0 REM SET CARATTERI CBM64 LUCA DELLA VALLE 

1 DATA 163 ,0 , 133,851 , 169,806 , 133 ,252 
£ DATA 169,0 , 133,853 ,169,48, 133,254 

3 DATA 162 ,8 , 160,0, 1 77,25 1 , 145,253 , 136 

4 DATA £08 ,£43,230,252 * £30 , £54 , £02 , £0B 

5 0ATA£4£ , 36 

6 DATA 169 ,0,32 , 189,255 ,169,1,162,1 

? DATA 160 , 1 ,3£ , 186 ,£55 ,3£ , I9£ ,£55 , 165 
S DATA0 ,133,251,165,48, 133, £52, 186,0 

9 DATA 164 ,64 , 1 69 , £5 1 , 3£ , 2 1 6 ,£55 ,163,1 

10 DATA32, 135, £55,96 

1 1 DATA 169 ,0 ,32 , 189,255 , 169 , 1 , 162 , 1 

12 DATA 160 ,0 ,32 , 186,255 ,32 , 192,255 , 163 

13 DATA0 ,162,0,180,43,32 ,213,255 , 169 

14 DATA 1 ,3£ , 195 ,£55 ,36 

15 POKE53280 , 6 * F0KE5328 1 r 6 
20 POK E650 , 1 £3 

£5 POKE52 , 43 s P0KE56 , 48 : CLR 
30 POR 1=491 52T043258 
35 RE AD A : POK E 1 , A : NEXT 
38 GOTO 10000 

40 PQKE5S334 ,PEEK <56334 > AND 2 54 

45 POKE 1 , PEEK C 1 ) AND25 1 

46 REM* ******************* 

47 REM* SPOSTAMENTO DATI * 

48 REM* ******************* 


50 SYS <48 152 > 

55 POKE 1 ,FEEK< 1 50R4 
60 F0KE5G334 , PEEK <56334 )OR 1 

65 POKE 532 7 2 , < PEEK <53272 ) AND 2 40 >OR 1 2 y y 

115 PR INTTAB <£0 > "SUGAR ATTERE INFERIORE 
120 PR I NT " U M TAB C 28 ) " WF 3 " 

125 FRINTTAB ^20 ) w BUCAR ATTE RE SUPERIORE 
130 FRI NT " gj|' h TAB c 28 > " ^5 " 

135 FRINTTAB <20 ) "S1ELABORAZ IONE 
140 PR INT ,, M“TAB <23 ) "W? 

145 PR INTTAB <20 > " ^FE!G I STRAZ IONE 
350 PR IMT'lUEftJ t — | 

155 PR I NT H U t | IMI-CARATTERE IN ELABORAZIONE 
160 FR I NT " EU L — f 


70 X=£:Y~2 
75 PR INT » L XI 
80 FRI NT 14 1| [ — 
85 FOR I “0TO7 


90 PRINT rt O( \ 1 \ 1 1 \ ! I 

95 FR 1 NT 11 ti 1 - U 4 \ 1—^-4— l — I 


100 NEXT 


105 PR I NT 11 ni l — l l — i l. 

110 PRTNT ,, atì"TAB<2S> jl 1 


165 PR INT " ®fSPACEU-PER FISSARE I PUNTI 
170 PR INT “«BARIMI SUL RETICOLATO 
175 PR INT " *h lMMI-PER CANCELLARE 
180 AA = L 024+X +40*Y? BB=32 
185 POKE 1796 ,BiPOKE56058 ,4 

1S0 POKE 1024 +X+40+Y, 1 60 ; POKE55236 + X + 40 * Y , 14 
135 POP I =0TO£5i NEXT 


200 GETA^i I F A^ = " 11 THE NP 0KE55296 +X + 4 0 * Y , 8 i GOTO 185 
£05 IFA^= ,, «"TNENB=B- 1 : l FB - - 1 THENB - 255 
£10 IFA* = *fi"THENB*B+ 1 : I FB = £58THENB =G 
£15 IFASs " " THENB B = 1 60 s X -X +£ 

£20 IFAS = "4- l, THENBB-32 : X~X + 2 
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3 35 I" * = CHRS< I 7 UHENY = Y + £ 

£30 ;fA*»CHR5IK23 ÌTHENM=X ^2 
23? Ir Ai =CHRi< I 45 >THENY=Y-£ 

34ÌD IFA*=CHR$< 157) THE NX -X - E 

£45 IFX> iBTKENX=2 ! Y = Y+£t [ F Y > 1 GTH ENY *£ 

£50 ! FX < £ THE NX = 16: Y-Y-£i I FY <£THENY= 1£ 

£55 IFY<2THENY=2 
£80 IFY> iGTHEMY= 18 

£85 PQKEAA ,*BB : AA = 1Q£4 +X+40*Y : BB=PEEK (AA ? 

£ 70 I F Ai = M H W THE NE 85 
£75 I F Ai = " 11" THE N345 
£30 GOTO i 85 
£35 Z "0*Q=0 
ESC F0RY-2T0 tèSTEP£ 

££5 FORX=£TO 1SSTEPS 

300 I FPEEK < 1024+X+48*Y) - 1 60THENG -Q +2 t C8- CXY£> ) 

385 NEXTX 

310 A<2 >=Q:2*2 + 1 iQ~0 

315 NEXTY 

380 E= 12283+ CB+S) 

££5 FQR I =0TG7 
33Q POKEE + I ,A< I) 

335 NEXTI 
340 GQT070 

£45 PR INT" JARCH IV IA2 IGNE DEL NUOVO SET DI CARATTERI 
34 B REM* ****** * 

347 REM* SAVE * 

348 REM******** 

365 SYS t 43 137 > 

370 FF INT " LMBjBMMflgPgflMP K \-IL NUOVO SET DI CARATTERI 
375 P R I NT " SE 1 STATO MEMORIZZATO 
330 PRINT"MK N OH*: END 

330 FR 1 NT " LAMfflfl l NSE R I SC I LA CASSETTA CON I DATI 
335 FR INT" EDA CARICARE E PREMI UN TASTO QUALSIASI," 

400 UA IT L33 , 1 

4 0 1 REM + * ****** 

40£ REM* LOAO * 

403 R EM ******** 

405 SYS <43287 ) 

4 10 PQKES3272 , < P E E K <53272 ) AMD £40 ) + LE 
4 J 5 PR I NT 11 Mmwmrìk [ ! - IL NUOVO SET E 1 
4 £0 PR INT "BSTATD INSERITO 
430 MEU 

10005 PR INT MI 1 ELABORAZIONE NUOVO SET DI CARATTERI 
13010 PR I f JT 11 £2 AIE- SUA MEMORIZZAZIONE SU CASSETTA f ” 
10015 PR INT "USEl CARICAMENTO SET DI CARATTERI DA CAS- 
Ì00 20 PR INT " «■■■ SETTA . M 

180 30 3ETAÌ : IF ’*AÌ ' > fK 1 rl ANO Ai < > "£ " >THEN 10030 

10035 A -VAL 'Ai) : GM A GOTO 40,330 
oran'^ 

fi ™ * -hH ■ 
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CENTRO INFORMATICA APPLICATA MILANO 


02/63.56.016 


P.zza S. Eustorgìo, 2 tei 

(zona ticinese) 

Via Bruschetti, 11 tei 

{zona centrale) 

Via M isso ri, 10" tei 


Milano 


02/68,99.912 


039/32,37.79 


Monza 











COME OTTENERE 
I CARATTERI SPECIALI 
DEL COMPUTER COMMODORE 
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IN MOLTI LISTATI PUBBLICATI IN QUESTA RIVISTA 
FIGURANO ALCUNI CARATTERI “SPECIALI” 
INDICHIAMO, SU QUESTA PAGINA, IL MODO DI OTTENERLI 
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COMMODORE 64 
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Star 

Race 


Un gioco scrìtto in Basic e 
linguaggio macchina che menerà 
a dura prova la vostra prontezza 
di riflessi. 


I t programma gira sul Commodore 
64 ed è composti» da due parti: una in 
Basic e Taltra in LM, 

La parte in Basic gestisce la lettura 
dei dati, il suono, i punteggi e i vari 
messaggi mentre la parte in LM è il 
gioco vero e proprio. 

Lo scopo del gioco è quello di at- 
traversare una zona dello spazio solca* 
to da meteore che (guarda caso) cerca- 
no di venirci addosso. 

Il movimento si ottiene mediante i 
tasti “<” (sinistra) e **> TT (destra): bi- 
sogna cercare di resistere il più possibi- 
le in mezzo alla tempesta di meteore, 
che a mano a mano aumenta, 

Si hanno tre possibilità, e se alla fme 
della terza si realizza it massimo pun- 
teggio il computer si congratula e tiene 
memorizzato tale punteggio, U pro- 
gramma non ha la pretesa di essere par- 
ticolarmente bello o divertente (infatti 
suono e grafica sono ridotti al mini- 
mo), ma fornisce un'idea di come pos- 
sa realizzarsi un semplice gioco in LM. 


K 

?F 




trr w 

RACE BY MARIANI 

B i 





10 

-m\r n 

LDA 

#*00 

■m 

F 

1 1 


STA 

*33FE 

s 

F 

12 


LDA 

#*r A 

È 

F 

13 

*■ 

STA 

*3058 

• 

F 

14 


LDA 

#*00 

# 

F 

15 


sta 

*33FF 

* 

/ 

16 


LO A 

#*13 

■ 

F 

17 


STA 

*FA 

a 

/ 

18 

: *3004 

LUX 

$Fn 

■ 

F 

19 


LOA 

#*20 

« 

f 

ED 


STA 

*0008 r X 

■ 

F 

E 1 


LDA 

*0630 r X 

f 

J* 

SE 


C MP 

#*20 

■ 

F 

E 3 


BEQ 

*2013 

* 

F 

24 


RT3 


afe 

F 

83 

: SEB 1 3 

LDA 

#*16 

È 

/ 

SS 

s i STA 

*0630, X 

* 

F 

87 

■ 

fc 1 

i 

LDA 

#*01 * 

p 

/ 

ES 


STA 

*DA30 ,X 

■ 

F 

89 


JSR 

*2047 

■ 

F 

30 


LDA 

*C5 

F 

31 

g, # 

CMP 

#*2C 

m 

r 

SS 


BEO 

*2020 

■ 

/ 

33 


CMP 

#*£F 

1 

F 

34 

■ 

BEO 

*203A 

F 

35 

: 

JMP 

*3-304 

1* 

/ 

3G 

: *£0£D 

ItC 

*F A 

■ 

F 

37 


LOA 

*FA 

r 

36 


CMP 

#*1C 

to 

f 

39 


BNE 

*2004 

i 

40 


DEC 

*FA 

a 

F 

4 I 

■ 

j MP 

*2004 

■ 

/ 

4 E 


DEC 

*FA 

to 

F 

43 

; 

LDA 

*F A 

m 

F 

4 4 


CMP 

#*0B 

■ 

F 

45 


BNE 

*8004 

m 

F 

4G 


INC 

*F A 

■ 

/ 

47 


JMP 

*2004 

■ 

F 

40 

:*£04? 

LDA 

#*50 

■ 

F 

49 

• 

m 

STA 

*07CB 

a 

F 

50 

# 

4 

STA 

*07OC 

w 

F 

5 1 

m 

V 

LDA 

tt*0I 

fl 

/ 



u . 

1 M I Z 1 RL 1 Z Z riZ * 


P03IZ. INIZIO 
CANCELLA GIOC. 


CONTROLLO OST, 


RIT# A BASIC 
CARATTERE G ì OC . 
STAMPA Gl OC. 
COLORE GIOC. 


CONTROLLO TASTI 
TASTO 1 5 1 

7m 3 TO 1 < 1 


NUOVE A DESTRA 
MARSINE DESTRO 


MUOVE A SIN# 
MARGINE SIN 


CARATT. STRADA 
STAMPA BORDI-. 

■ -STRADA 
COLORE STRADA 
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- 

■:■■ • -■ ■■ 

■ 

l’-x .*■> 









f V : h 
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A nsieme co) listata basic, viene pub- 
blicato anche un disassemblato com- 
mentalo, per facilitare il lavoro a colo- 
ro che volessero modificarlo o miglio- 
rarlo, e permettere ai neofiti del LM di 
cominciare a capire le principali istru- 
zioni sulle quali opera il linguaggio, 

D programma non è veloce come 
Fuso del LM farebbe supporre, perchè 
usa la routine di serali del sistema ope- 
rativo del 64 (vedi nel disassemblato 
JSR SE975) t notevolmente lenta ri- 
spetto ad una realizzata dal program- 
matore. 

Da notare che la locazione 2 contie- 
ne il numero di astronavi che rimango- 
no da giocare, mentre S03FE-03FF 
contengono la difficolta (progressiva) 
con la quale sta operando il programma. 

Questo occupa i bytes da 8177 a 
8340^ mentre ì caratteri sono a partire 
da 12288, Si raccomanda la solita at- 
tenzione nel trascrivere i dati perchè 
Terrore di un solo numero potrebbe 
bloccare il computer costringendovi a 
rifare tutto da capo. Per questa ragione 
si consiglia di registrare il programma 
prima di dare RUN in modo da averlo 
sempre a disposizione per eventuali 
correzioni o modifiche. 


5£ 

: • STA 

*DBCB 

53 

i i STA 

*DBDC 

34 

: ' DEC 

*03FF 

55 

f iLDA 

*03FF 

56 

: ac MF 

#*F A 

57 

! i BN£ 

«076 

5S 

s SUDA 

#T0G 

53 

: i STA 

*33FF 

C 0 

: J LDA 

*00 12 

CI 

: sfiND 

#*0F 

3c 

; :tax 


S3 

: ' LDB 


G4 

t i STA 

*C7CC ,X 

85 

? t LDA 

#*07 

C£ 

: : STA 

*DBCC 

37 

!*E37G iJSR 

TE 3 75 

68 

i : LDK 

*FA 

GB 

; ì LDA 

#*£3 

70 

2 s STA 

*3803 f X 

7 1 

: s DEC 

S03FE 

^3 

: i LOA 

S03FE 

73 

X rctvp 

#*03 

74 

s s BMC 

*5334 

• *— 

: LCA 

*£05 E 

73 

! 2 c MF 

#*FF 

-i "f 

: t BEO 

*£0B4 

?3 

: : I NC 

*£05E 

70 

2 «034 ì RTS 



; ROUTINE PER - * 

; . . INCREMENTO . , 
; p i D 1 F F 1 COLTA 1 


* NUMERO RND, . 

; * . TRA 0 E 15 

M 

; CA EATT. OSTACOLI 
ì STAMPA OSTACOLI 

I COLORE OSTACOLI 

* 

F 

* SCROLL NEL S,0. 


;Cftr CELLA Gl oc 
; CONTR - VPiR 1 - * 
; . - PER LIVELLO 
* , * D IFF ICOLTA * 


; R i r * 


DIFF. 
DA SUB 


READY, 


100 
1 10 
150 
160 
170 
130 
130 

am 

E 10 
2£0 
£30 
£40 
£50 
£80 
£70 
£B0 
£80 
300 
310 


REM *** STAR RACE 

REM *** BT MARIANI GIANCARLO 

p 

PR INT-LI" sRESTORE :POKE56,30! CLRSG0SUB4 10!B«s -000000" :F =53272 
P0KE54296 ,0 : PGKE53280 ,0 : POKE5328 I ,0 : PR INT "O" : POKE2 ,3 : P =53272 
PR 1 NT “ ■ -fluii flSTAR RACE “ 

PR INT “ JH BY MARIANI GIANCARLO* 

PR1NT"SH1 TEL. 0362X72565" 

PR ] NT " «P81M TASTI Ofi USARE: *< * E 1 >*“ 

PRINT’MS HI SCOREi “Bst 

PR 1 NT " > > PREMI UN TASTO PER INIZIARE <<<* 

POKE 193,0: UIA IT1S8 , l:PRINT“iJ" 

TIS= *000000 “ : POKEP ,28 : GGSUB490: SYS8 1 77 : POKE 188 ,0 
A$ = TI $ s GOSUB470:FORK = ITO 1200 : NEXT: POKEP ,21 
P0KE2 ,PEEM 23-1 
IFPEEK< 2 > =0THEN350 

PRINT’JBS ari SEI SCHIANTATO !!“ 

PR I NT * SCU ASTRONAVI RIMANENTI : "PEEKC § 3 

PRINT"«1 >>> PREMI UN TASTO <<<“ 
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320 PQKE 138 ,0 i WAIT138 , 1 : PR 3 NT ,r iJ" : POKER , £8 
330 TI$=A$5G0SUB490 : 5 YSS 1 0? i POKE 1 98 , 0 
34 0 GOTQ260 

330 PRINT H JKW & INE GIOCO" 

3GB PR 1NT"JH TEMPO! “fì$: I FA$>B$THEN33B 

370 PR INTOMBISI ?>> PREMI UN TASTO < < X " = FOKE 1 98 ,0 : WA I T 1 98 , 1 

380 PR I NT * LÌ - : GOTO 1 70 

390 PR I NT * £KJ aCGNGRATULAZ IONI !! H 

400 PR INTUII HAI FATTO L * H I -SCORE " : : GOTO370 

4 10 U =0 * FORK "8 1 77TOS340 : RE BOP : POKEK , A 

430 U-U+AlNEKTS IFU< >£034STHENF R I NT M MERRQRE NEI DATI LM ! " i END 

430 FQRK-QT0E3 * READA : POKE 12238+K ,Ai NEKT 

440 FORK“ I £54470 12552 SPQKEK ,0 INEKT 

453 RETURN 

4E0 s 

470 PDKE5*27E ,8 : F0KE54277 ,0 : F0KE54273 , 0 : FDKE54E7? , 74 : PDKE5427S , 3 
490 POKE54E7B, l ES : FUKE54273 , 1 0 : PDKE54272 , 37 ? RETURN 
490 POKE54296, £5 

500 PQKE54276 : P0KE54E77 ,0 : PÙKE54276 , 0 
5tG PGKEr.4£77,255SFOKE54273,£55:POKE54276 ,33 
533 POKE 54£73 ,5 : ^CKE5427c , 37 2 RETURN 
530 : 

5 43 REM *44 PROGRAMMA LM 444 
550 ! 

5C0 DATA 
573 DATA 
580 DATA 
593 OPTA 
800 DATA 
E10 DATA 
SCO DATA 
630 DATA 
S40 DATA 
£50 DATA 
660 DATA 
670 DATA 
633 DATA 
830 DATA 
700 DATA 
710 DATA 
720 DATA 
733 DATA 
740 DATA 
750 DATA 
760 ! 

770 REM *4+ DATI PER CARATTERI 444 

730 : 

730 DATA £4,60,36, 132, 18£, 36, 60, 24 
339 DATA 0,24,24,60,60,126,126,24 
810 DATA 80,126,126,80,102,102,60,24 


16 9,3,141 ,254 ,3 , 163,250 ,141 

34.32.163.0. 14! ,£55,3,163 

1 3 j 133 , 250 , 166 , 350 , 183 , 32, 157 

3.6.168.43.6.201.32.240 
1 ,fB,163,E, 157,48,6,163 

5 , 157,43,2 18 ,32 ,71 ,32 , 165 

197.201 .44.240.7.281 .47.240 
16,76 ,4 ,32,230 ,250 , 165,250 
£01,28,203,207, 138,250,76,4 
32 , 138,250, 165,250,20 1,11 ,208 

1 34 . 230 . 259 . 76 . 4 . 32 . 189.0 

14 1 .203.7. 141 .220.7. 169.1 

141 , 203 , 213 , 14 ! , 220 , 213 , 206,255 
3 , 173 , 255 , 3 , 201 , 250 , 200, £1 

163.0. 141 .255.3. 173. 18.203 
41,15,170/163,1, 157,204,7 
169,7 - 157,204 ,219,32 , i 17,233 
136,250, 183,32,157,3,6,206 
£54,3, 173,254,3,201 ,0,208 

10,1 73 , 34 , 32 , 20 1 ,255,240 ,3,238,94 ,32,96 


READY. 


■COMMODORE 64 



Guerre 

Atmosferiche 


U n vecchio programmi! per ti {glorio- 
so) PET 2001 è Malo 11 riddato” per il 
Commodore 64, Le istruzioni sorto (le- 
se ritte nelle righe da 2110 a 22^0 che, se 
il Lettore Lo desidera, può omettere di di- 
gitare, L'unico accorgimento da seguire 
é quedo di trascrivere con grande atten- 
zione le righe dei DATA (270*280) che 
rappresentano urta breve routine in lin- 
guaggio macchina, [più esperti, disas- 
seminandola, possono inserirla in propri 
Listati. 

A che serve la routine? Scopritelo da 

soli.,, 

A* De limone. 

Listalo adattato da F. Sorgalo 



1 H0 
1 10 
1S0 

130 
1 10 
ì 50 
LE0 
i 70 
!80 
190 
300 


REM + + t * f * + t * * * t * 4 * t 4 t + * * * * + * * * + 1 + : * 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


M 
t * 
4 4 


GUERRE ATMOSFERICHE 


'A-r: 


PER COMMODORE 6<1 


+ * 
44 


4444 444^4 t 44444444444*44444 44 4* 


i 4 
+ + 


REM ti 


t EX - VERE IOLE PET> BV 
FABIO S ORBATO 


4 4 
* * 
+ * 
44 


REM t*t1<4*#***1't*t*ft + t**tt*liVt***4 

- ■ • 



a 10 PCI;- n 


M * 


! SDSUB2030 


• • v , 




£20 PEADAA , BB : FORZ -fifiTOBB : REnOU ! POK.E2 > UH NEXT 

230 PRINT“®f*»C DEL PRIMO GIOCATORE? * J « GOSUB 19 10 i EP*= IN* 

£50 PRINT-Iemc DEL SECONDO GIOCATORE? * * f GOSUB 1910 5 UF*= IMS 
260 1FWP*= 11 "THENE50 

£?0 DATA82B , 8<19 , 162 . 4 . 160 , 0 , 1 32 ,33 , 1 34 ,34 , 1 77 , 33 , 73 , 128 , 1 45 , 33 
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ase 
a 30 
300 

310 
320 
330 
34 0 
350 
3S0 
3?0 
330' 
330 
4 00 
4 10 
120 
430 
440 
450 


ii 


□ATA200 , 208 , 247 , 232 , 224 ,6 , 208 , 240 , 36 , 0 
Q=5946? IR =2 ! 5=53464 : POKEO , 16; P0KES4296 , 10 
POK.ES ,0 ! H = 1786 ; 89=54276 : FORESE , 32 
REM O I SEGNO FULMINE 

SLS=" 

e*- “ ma w«r »! »w ~ _jb*ui min iRitai*i m 

of-" ma ih a tm nm ia 

E*=c**”\mi lana ita tata man ' —■"> ' 
f*~ds+ » m «ami in un «saia 

gt=ct* "\ a ira mm j n»i 

hp-d** ■ »j it!t uri a a 

i-r=cF+'"\jr,a Mia 1 11 

a ibi tam HHHHHHHi HHHNI 

PR ; 

- 

PRINT-nr'! 1 FORV " 1T038 ! RR 1MT" — “ > : NEXT» PR IHT "t » f 
F=28 : G=28 s M = 3 1 MM=0 

F0RV = 1T0 19 SPRINT" [ S BL^F ‘ "1*1 ! MEXT 


. ii 


I 


I 


460 REM DISEGNO CASETTE 

470 pr i nt " nnunar. a " spcì ee > ■■ r ta* 

430 pRiNT-cmmaa i •• spcc ee ) * ~ 1 * 

490 FRINT- — M | "SPCI 20 >“ I " 

500 T*=LEFT*< EP* , 7 ) : PR INT “COI" /* SPC( 3 . 5 +\ 7 -LEKK T*) >.- 2 >;T* 
510 T**LEFT*X WPS . 7 ) !PRIHT*m»"J 5 PCf 30 «4 7 -LEKK r$r>>/ 2 *;T 4 s 

520 PfilMT' T— la I *SPC< 20 > “ | " 

530 PR INTASI FORV= 1TG40 SPRINT : : NEXT SPRINT 

540 REM 

550 GOSUB 1350 : 1 FF< 10 RD< 1 THEH 1710 

560 M=M+H IFM>3THENM=* 1 «MM=MM+1 s B = 0i PR 1NT“B" t TABC 15) J " 

570 IFM=3ANORNO< 1 ) > . 33THEN560 

580 PRINT"SÌB" ; !FGRV= 1T03 SPRINT" | “1 BL*I “ | *1 IKCXTVIPRINT 

530 1068sftO-RMD( 1 ) *26 : A“A+AA5B= 1 -B 

600 POKER . 104 :FORV= 1T04 i A=A+1 : POKEA, 102 : MEXT 








610 FORV= 1T05! A=A+ 1 s POK.EA . 104 ! IEKT 

620 A=A+27 s POK.EA , 104 : FORV= 1 TO t 1 : A=A+1 JPOKEA, 102 s MEXT • POKEA , 104 : A=A+33 

630 POKEA, 104 :FORV=lT06iA=A+i : POKEA , 10HS NEXT! POKEA, 104 iNN=0 

640 PRlNTA*"a" ;BL*s ' " : pr i NTA* : " UH' s 

650 IFM=3THENPR INT "a " SPC< 2 1 V 8 " s GOTO680 

660 IF0=0THEMPP IMT“ » "SPC7 2 1 ) "^ATTACCANTE J1 ' GOTO680 

670 PR 1 NT "ATTACCANTE " SPC< £0 ) " 8 

680 EE^INT-PNCK !>T100' 


630 1FEE >5BTHENGQSUB770 s GOTO? I 0 

700 PP I MTAPSPC'; 14)“ 37EMT0 *P “EE ” Il H" 

710 RRlNTBLglPRlMTBLPl "ITI" 

730 F0RX’*1T04 SFR INTBLS; s GOSUB 1630 s GOSUB 16 10 

740 PRÌNTTAB< 13) "KVENTÒ CASUALE®]* i GOSUB 1 630 s NÉXT 

750 GOSUB 1620: GOSUB 1620 SPR INTEL* WKKttKE/ttÈÈKEÈtÈKtKtÈM 

760 0= 1 s B» = MID*- "PGTF “ . INTr RND: 1 ) *4 ) + 1 ,Q> : IN*=B*s GOTO860 

770 EE = INT< -EEX2 > s PR INTASSPCC 14 ) "*)ENTO < ABSt EE > “H RETURN 

780 IFI-K MTHENG0SUB1630: SOTO830 

780 POKES9 ,33 s M9 = 220 
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I iMcrn ;l 1 1 1 unta l'Ic hf 



0J0 PRJm^^ ,l lS w JTff 

850 B t^LEF r*c IN* , 1 » 

• . . . • •■ ■ ■; • ■ • • • • 

860 t Jt- "PIOSG !8* 5 IF 
870 1-lf - " GRnf'O £ NE ” S I 
880 M=F~~" TORNADO *’ ! IF 


800 PR]HT*3' ' TRB 1 : 3 3> "0ATT 

310 GQ8IJB1610 

880 NEXTsPOKESS , 3£ 

830 T*^EF$; IFE3(*0THE;MT*»MP 


880 I W= " FUMI £ re ; I F L EF 

: Li- '■ - : ...e: 

800 NT- *USC I Tri 11 r £ FLCFT 
3 1 0 PR I NT" CU* ' GOTO? 1 0 

: ' : r™w-'v> • : rtT' 

980 PR INTTX CLP T3CE CGN 


930 IFO- 1 THEMPR INT "9M L * * F 
31 ® lFM=3THENfil -0 » PR ! NT 
950 I FM< 3THEr JPRIMT ,l R:ORRE 
960 PR INT "0-6 CORREZIONE 
9?@ iFftl - -lSBTHENftl -~150 
980 IFfll M50THEm 1 = 150 
330 lFW*=''Q m THEmQ$UBt$ZQ 
1000 £F8^ = "F ” THEMG05US. 1 SE 

■■ ’ ' ' • •• ■ • • • ■’ ': :••• :• ? '. 'j,' 

1010 ifo= ithenpr iMT” aamn " 
lese E-:AiFE£?.'5eiDD*e>te£ 

1030 tFO=£BMOE 0THEMCC “78 
1040 IFQ=2ANDE>0THENCC*77 
1050 I FO “2THEMCC -66 
1060 R - I t^e + AfHBB-eiFF = TT 
1070 FORM* 1 TO 16i 11(1 = li : NS=H 
1060 IFO< > 1 ORDO® 1THEMFGKE 
1030 IFT=UUTHENM- 16 : 111=0 : 
11B0 R=R+v 40+E? :G0SUB1240 
1110 IFO< > 1THEH1S00 
1120 IFPEEK< C + 1 > -330RPEEK 
1 130 POK.EC + 1 , GG : POK.EC - 1 .6 

1140 IFFEEKC C +2 >=930RPEEK 
1150 POKEC + 2 ,GD ! POK.EC -2 ,6 
1168 1FE>8ORE=0THEHPOKE ir- 
li 70 IFE< 0QRE jf„0 THE hlF OKjE C - 
1160 lFDD=0THENGnsUB 1690 i 
1130 IFDD= 1THEI IP0KES3 f 33 : 
1200 IFMfK > 1THENG0SUB 1620 
1210 I FDD -0THEMQD* 1 sCC-32 
1820 GOTO 550 
1830 GOTO 550 

>r- . ■ 

1 840 C -R : FORZ - 1 TOFF f C -C + 1 'D- 
1850 iFD -93 THEMG0SUB 1 660 * l»J“ 1 
1860 IFD > l67ftNDOO-0THENGOSUB 
I £70 I F I >£THEM*J~ 16 
1880 PDKEC rCC J IFCC-58THEF 
1290 fAEXTiBB* 1 -BB s IFBB=0fl 
1300 RETURN 

13 30 FORK* IT03 : POK.EC , 170 i 


Tu 1 

□ TO 

ORV 

T0 1 
TO 1 

MM = 
: GO 
32 
Pi . 
XT = 


fusili 




a® 




P0KES9 


: PdKEC , 170i 























Cititrr* nlfflOifltrktK 


13£0 80 SUB 1340: ME>‘T : I=I+ls IFtK >0TH£NL-JM6 

1340 PO K E 39 i 33 s ^fSi = 150 ; G0SUBS3 10 ; F0RV= ITO 50 - NEKTs P0KES3 ,3BtPE TURN 

1388 i-0:G= t :F = © 

1360 FOEY- 1 TQ4 ! FOPM“ 1 TO? s H = N+ 1 :0-PÉEK< H > • IFCK >3HTHEMP^F + 1 

13 70 NEttTSH^H- 1 71HEKT 

1 38© IFG” ^ 1 THÉMF' =P S 0-0^ P =0 :H=H + 187s GOTO l 36© 

1330 G - F 1 : H= 1 796 
1 *0© RE TUR n 

14 10 HI - Al. "33 s IFftK -4THEMR1--4 
M30 iFfìl MTHEmi-fìl-1 


■ • SlR : • 


&*jp- àf -M'. 

»arrt.' •:•{••. 


14 40 nr^Afi^At +7 ■ 

N150 IPflftr33THEMftft*33 PIIHIHi 1MHIHHM 1 

MSP IFAA<6THENftft*6 

1 170 FORI - 1TO3!GOSUB1600!PR INTC*« SYS8g6 • SYS82S : GOSUB 1600 : PR IMTD*«NEKf 
1 '180 GOSUB IS 10 : GOSUB 1608 !PR INTC*iSYS826 
1490 SYS826S GOSUB 1600 i PR INTD*! GOSUB 1620 

1510 i fr i ^THENissaWwMHHniiHlHHHnHH BHH 

1 520 FOP.Z =,l T02 : GOSUB 1600 : PR IUTE* : SYSS26! GOSUB 1 640 s SYS 626 i GOSl^B 1600 t PR IMTF$ 

1530 AA=-NA*1 

154 0 NEX T i GOTO550 

1550 FORZ - 1T021GD5UB 16001 PR!MTG*iSYS82S iGOSUB 1640! SYS926 ìGGSUB 16005PR 1NTH* 
1560 AA*AA-1 

1580 FORZ = 1T02 : GOSUB 1600! PR INI I*:SYS82G i GOSUB 1640 ! SYS826 ! GOSU8 1600 i PR INT J$ 

1530 NEXT:GOTa550 


' * ' 1 ’ - 



1630 PDKES9 ,33 M e-£00iGOSUB23 10: FOR7^ lTO10©:hEXT: P0KES9 ,3S : RETURN 

" K Hi 

1630 RETURN 

Ìf** j^MSBMlW^ fefgTO^irr- ^ .■jW Ka—iW WM^^^f^^KHMfcM'KìMrt ■- r Jtg.U-<i «ffiiiTIPffraifly 

1660 IFNN= 1THENRETURN 
167 0 PRIMI “a“ 7 TABf 13 >1 “S FUORI CAMPO! ! * ! GOSUB 1690 ! FORV = 1 TO2500 ! NEXT 

1680 PRINT*a" > TAB7 13 > "BATTAGL I A 'MM’II "! NN = I ! RETURN 


1630 

1700 


" : NM= I s RETURN 


FQK.ES9 * 33 s F0RX= 1 IO 10! FORV= 10TO200STEP25 ! N3 = V ! G0SUB23 10 ! NEXT ì NEXT 


P0K.ES3 , 32 : PE T1JPM 


1710 PRIHTASU “a * ; BL^s PR INTBL#! PR INTBL* 

1 730 PU7.ES9 , 33! FORV =200TO50STEP- 1 : M9-yi GQSUB23 10 : MEXT t P0KE69 , 32 
1743 P-F*3, 6: IFG >0THEMB* = EP* i P=G*3 . 6 

1753 T = 7 -( LENC EP*>/2.’ * 1FT-;0THENT*0 

1760 pr i mt 11 m~na " ; tab : t> 

1770 T = 33.5-LEf'K NPS7/2: IFT+LEN( NP*) >39THENT=40-LEFK WP»> 

1790 PRIMI “ rTTTTTTI~— I " 1 INTC F«3.6>? “Wt< E' SALVO* 

tKKfrPW'fctf»- &.%l-.7r¥Tii« *•'. i-A~ i "' I 1 ... ■ ■ ■ - il iv.-f ' ’ ’ ■--» KirlkmS'Zrr * . rf '~*?n^H 9ill«HHHH^^^HPVPFK-JEi£SlK! l Sf£a9Kra*'- 

1300 PP1MT 11 m" ; TAB< 26 J ; I NT ( 0*3 .6) ; "|f< E* 

1620 1F F =C THEMPP I NT ” E • UN PAREBG 10 ! ! “ : GOTO 1850 

1830 PRIflT" IL VINCITORE E'*.::IF F-: G THEM PR I MT UF*!GOTO 1858 
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1349 PRINT EP* 

13*50 PRIMTA*; "3HP IDEATE ANCORA? ";:GGSUB1910 
1 860 IFLEFT*i: IN*, l > - "N"THEN1890 
1870 T*’EP*iEP*-UP*!llP*=T* 

1030 GOTO 429 
1390 PRINT "jaa" : END 
1900 EMO 

1913 IH** Z £0:> 

1 920 GETZ*i IF2*< > " “THEM! 350 

1333 1FZT' 1THENPR 1MTMI0$< “ Jf" ,2C,1 "ir 1 ; J ZC =3-2C : 2T=T 1 + 15 

1340 GOTO 1320 

1950 Z=ASC< Z*> SZL=LEFK IN* > i 1F( ZAND 1 27 >< 32THENPR 1NT " H" f s GOTO 1390 
1360 IFFLAND* 2AND127 J >G4AM3< ZAMJ 137X9 1THENZ*=CHR*< < Z + 128>AND255> 

1370 IFZL >254 TRENI 320 

1980 IN*- IM*+2*:PR INTZ*,* ZD*; 2 *J 

1330 IFZ* J3THENtN*=MID*s IN* ,2 ? ' PR 1 NTCR*; ! RETURN 

2000 IF2 -20ANDZL MTHENIN*=LEFTW IN*,ZL-1 ) i PR INT-||" f «GOTO 1920 

2010 IFZ-- 14 1THEH2*-CHR*C -20+< 2L>1 ) ) :FCIR2 =2T02L ! PR INT2*; iNEXTZ SCOTO 1910 

2020 GOTO 1920 «««-««». ,, m | 

2030 PR I NT "JJ" s FOP I = ] TO 1 0 : PR I NT * " J SHEXT1 SPRINT 

2040 PR INTTfte< 6 V'COLP ISO I IL NEMICO 1 ' 

2050 PR 1 NT "CON LA FORZA DELLE INTEMPERIE!" 

£060 PR IMTSPR INTsPR INTsPR INT 

2070 PRINT-'.'OOI LE ISTRUZIONI? ( S/N> " 

2080 SETA* s IFA*=" "THEN2030 

2090 IFA*“ "S"THENGOSUB£ I 10 

2100 PR !NT"ii* SCLRSCR*=CHR* 1 ; 13JSGOTO220 

2110 PR I htT " iJ QUESTO GIOCO SIMULA UMA BATTAGLIA TRA 

2120 PR INT "DUE AVVERSARI, RAPPRESENTATI QA DUE 

2190 PR INT "CASETTE , CHE USANO COME ARM I . . . BVENT 1 

2140 PR INT"ATMOSFER IC I . “ ! PR INT” ALL’INIZIO DEL GIOCO APPARE UNA MJVOLA 

■ 

2130 PRIMT"POS 12 IONATA IN MODO CASUALE ED UN MES-H 
2160 PP IMT'*CKAGG IO CHE INDICA LA DIREZIONE DEL VENTO 
2170 PRINT 11 CE LA SUA VELOCITA'. IL GIOCATORE INOICA- 
2130 PRINT "Uro COME 3ATTACCANTEB DEVE SCEGLIERE UNA 
2190 PR II IT "DELLE GUATTPO ARMI DELLA NATURA CHE SONDI! 

2200 PRINT-OR SUA D ISPOS 12 IOFE • 

2210 PR I NT “8136 = GRANO INEB S^PIOGGIAB 3T = TORNADQB ^«FULMINE* 

2220 PR INT''U = USC ITA DAL G10C0.<FINE) 

2230 PR INTSPR INT”EGL1 DEVE INOLTRE INDICARE, SE LO OESI- 
2240 PPINT”OEPA, LA CORREZ IONE DA APPORTARE ALLA 
£250 PR INT"DIRE2 IONE DEL VENTO, TE FENDO CONTO CHE 
2260 FRI NT "UN NUMERO NEGATIVO RAPPRESENTA UNO SPO- 
2270 PR I NT “ ST AMENTO A SINISTRA, ED UNO POSITIVO UNO 
2230 PPtNT"n5P0STAMENT0 A DESTRA. 

2230 SETflfi IFA*=" "THEN2230 
2390 PR INT” J” i RETURN 

2310 P0KE5427S , 0 : P0KE54S77 ,0tpOKE54278 ,0 
2320 P0KE5427? , 0 s P0KE54278 , 128 SP0KE54276 ,33 
2339 P0KE54273 ,N9 s P0KE54272 ,0! RETURN 

READY. 


Computer Club - 67 



I COMMODORE 64 




Un modello del mondo ed un 
mondo in se stesso 

Lo spunto per il programma pubbli- 
cato* è stato fornito dalla lettura della ru- 
brica (Ri) creazioni ai calcala fare sulla ri- 
vista Le Scienze ted. Malìa na di Scienti- 
fìe American n, 189 maggio 1984). 

N gioco Vira è stato inventalo nel 1970 
da John Horion Conway. Esso ha ap» 
punto un aspetto biologico, come del re- 
sto suggerisce il nome. Le cellule nasco- 
no, vivono o muoiono a seconda della 
densità della popolatone locale, “L i - 
ni verso kt + su cui queste evolvono, è una 
griglia rettangolare, dove ogni silo può* 
o meno, essere occupato da una cellula. 

A partire da una con figura /ione inizia- 
le, si effettua* per passi successivi* un 
controllo su ogni cella e sulle otto edile 
die si formatti» intorno, (Si veda la figu- 
ra Ih al fine di calcolare il nuovo stalo 
della cella nella generazione successiva. 
Se la cellula centrale è viva, (cioè se il si- 
lo è occupalo)* essa continuerà a vivere 
a condizione che attorno a lei ci siano 1 
oppure 3 cellule vive. Negli altri casi 
muore, o per solitudine n per sovraffol- 
lamento* 

Se Invece la cella centrale è vuota* ri- 
marrà vuota a meno che il suo intorno 
contenga esattamente 3 cellule vive* nel 
itu.il caso si tia la generazione di una nuo- 
va cellula. Come sì vede le regole di com- 
posi /io ne sono molto semplici» anche se 
il gioco ha il fascino dell' imprevedibili- 
tà. Alcune con figurazioni terminano con 
la morte di tutte le cellule, ma mollo piò 
spesso si finisce in configurazioni stalli- 
li, oppure periodiche, 

f 'implementazione di quanto detto, 
sul nostro C64* c stata fatta utilizzando 



come griglia (Universo) le 25 righe e le 
40 colonne dello schermo (25X40 = 
1000 celle distinte I. Essendo celle bina- 
rie (vuote o piene, vive o morte), ci dan- 
no la bellezza di 2 1000 configurazio- 

ni iniziali differenti. C’è ne da fare os- 
servazioni per anni! 

Nella figura 2 è riportato il diagram- 
ma di flusso della simulazione* La cosa 
più importante da tener presente è che 
non bisogna cambiare lo staio di una cel- 
la* se prima il suo valore non è stato con- 
trollato da lotte ìe celle cui è adiacente* 
(Ogni cella appartiene simultaneamente 
a II' in torno delle 8 celle adiacenti). Sono 
quindi necessarie due matrici. I na che 
chiamiamo Generazione Presente (G.P,)* 
riportata sullo schermo. I n 'altra che 
chiamiamo Generazione Futura (G.F.) 
che è di Iransito. Infatti* dalla CLP,* di 
ogni cella si calcola il successivo stato, se- 
condo le regole di C onwav. Si pone quin- 
di il risultato in G.F.. Esauriti t controlli 
si trasferisce G.F. in G.P. e si ricomin- 
cia daccapo. Si ricordi che ogni cella è 
adiacente ad altre otto* e quindi viene 


controllala 9 volle. Ina quando funge da 
cella centrale ed otto quando è un ele- 
mento costituente mt intorno. 

Il programma necessita allora di due 
puntatori. Il puntatore alla cella centra- 
le |P,t.C) ed il puntatore all'intorno 
(P*D* Il primo per permettere di passa* 
re in rassegna la matrice, il secondo per 
il controllo degli intorni. Infine c'è biso- 
gno di un contatore che rilevi il numero 
di cellule vive per ogni intorno. 

L'uso del linguaggio macchina di con- 
seguenza. è stato necessario, in quarti o 
la velocità dì calcolo c un requisito indi- 
spensabile per dare interesse alle tìsser- 
vaziiiiii. Una prima versione Basic del 
programma impiegava quasi due minuti 
nel computo di una generazione* mentre 
adesso, nello stesso tempo* se oc calco- 
lano 900 circa* Si è reso quindi necessa- 
rio l'introduzione di un "pause”, l enen- 
do premuto il tasto RUN/STOP* l’ela- 
borazione si ferina fino a che questo non 
viene rilasciato* 

La prima genera/ io ne viene "creata” 
casualmente. È possibile variare la pro- 


le XX PAUQNET *** 
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(labilità di vita, cioè la densità ili celle oc- 
cupate alia prima generazione, cambian- 
do il valore di test delia variabile “( " alla 
riga 260, Si tenga presente che aumentan- 
do quel minierò aumenta la densità di cel- 
lule vive. 

\ ulori superiori a II.H5 in Ieri uri li 0.15 
por i ano spesso alla estinzione completa 
della colonia. 


Potete anche "creare” voi stessi una 
particolare con figurai iurte mi/iale. Spo- 
statevi per lo schermo con gli usuali ta- 
sti (CKS) e date vita ad una cellula digi- 
tando "SHIFT Q” tnem preoccupatevi 
dei caratteri eventualmente presenti che 
vengono interpretali come siti vuoti 1, 
Quando avete finito digitate "Kl \ 

mv\ 

Ho notato che esìstono versioni ilei 
"sessanta^ «altro" che richiedono la pre- 
ventiva importazione del colore di un ca- 
rattere, quando questo viene immesso di- 
rei la inerì te nella memoria video, affinché 
sia visibile. Coloro che sono in possesso 
di questa versione devono digitare "Rl’N 
295 T \ In figura 4 sono riportati alcuni or- 
ganismi stabili che spesso sì possono os- 
servare, In figura 5 vi sono degli interes- 
santissimi "Pulsar”, In figura 6 si può 
vedere lo straordinario " vagante”. Pro- 
vate a digitarlo cosi come è riportato e 
guardate che cosa succede. 

Si sappia inoltre che il bordo sinistro 
dello schermo e contiguo a quello destro, 
cosi come quello superiore lo è a quello 
inferiore. Abbiamo quindi un "univer- 
so** finito, ma privo di contini. Per ulti- 
ma cosa voglio illustrare lo scopo delle 
linee 220-230. 

il programma in linguaggio macchina 
viene caricalo da Basic alle linee 160-190, 
e bisogna attendere parecchi secondi, co- 
sa che può rilevarsi molto fastidiosa 
quando si intende far girare il program- 
ma piu di una volta consecutivamente. 

l e linee 220-230 hanno pertanto la 
funzione di introdurre, dopo il primo 
RI A, una istruzione di salto per evitare 
di caricare più di una volta il program- 
ma in linguaggio macchina, ormai già 
presente in memoria. 

Quindi, attenzione, quando salvale il 


START 
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1350 0676162,0, 160,0 
I960 0676189,0,5,201 ,01 ,208, 1 ,200 
1370 D676 139 . 1,5,201,81 ,203 , 1 ,200 
1 330 06 76 139,2,5,201,81, 208 , 1 , 200 
1390 0676189, 40,5,201 ,81 ,208, 1 ,200 
1*100 06T6I89 .42,5,201,81 ,208, 1 ,200 
1410 06^6189,30,5,201 ,33 ,208, 1 ,200 
'420 06 76189,8 1,5,20 1 ,8 1 ,208, 1 ,200 
!" 04T6 183,82 ,5,201 ,81 ,208 , 1 ,200 

1-140 0676 192,3,240,23 

1450 0676 139,4 1 ,5,201 ,81 ,208,5,200, 132,3,240, 16, 169,32 

1480 D6T6 157 ,0 ,201 

1470 0676232,224,0,208,3 

1430 067676 , 232 , 192 

1496 06T676 , 1 18 , 192 

1500 06T6 169,31 

1510 06^6157,0,201 

1528 0676232,224,0,208,3 

1530 067676.232,192 

1540 067676,118,192 

1550 0676162,0,166,0 

1560 D6T6 189 ,0,6,201,81 , 208 , 1 , 200 

1570 0676189,1 ,6,201 ,8] ,208,1 ,200 

1580 D6T6 189 ,2,6, 20 1 ,81 ,208, 1 ,200 

1590 D6T6189 ,40,6,20 1,83 ,208, 1 ,200 

1600 D6T61Q3,42,6 ,201 ,81 ,208 , 1 ,200 

1610 0676139,30 ,6 ,201 ,81 ,208 , 1 ,200 

1620 D6T6189.81 , 6,201 , 81 , 208, 1 ,200 

1530 06T6 183,82,6,20 1 ,81 ,208 , 1 ,200 

1610 0676192,3,240,28 

1650 06X6189,4 1,6,201,81 ,208,5,200, 192,3,240,16, 169,32 

1660 D6T6 157,0 ,202 

1670 06X6232,224,0,208,3 

1680 06T676 ,92 , 193 

169© 067676,234,192 

1700 0676169,81 

1710 06T6 157 ,0 ,202 

1720 06X6232,224,0,208,3 

1730 06X676,92,193 

1740 06X676,234,192 

1750 D6X6 162,0 , 160,0 

1760 06X6189,0,7,201 ,81 ,208, 1 ,200 

1770 D6T6189, 1 ,7,201 ,81 ,208, 1 ,200 

1 780 D6T6 189,2,7,201,31, 208 , 1 , 200 

1790 0676183,40,7,201 ,81 ,208, 1 ,200 

1800 06X6)89,42,7,20 1 ,81 ,208 , 1 ,200 

1310 06X6189,80,7,201 ,81 ,208, 1 ,200 

1820 0676 109,8 1 ,7,20 1,81,208, 1,200 

1330 0676189,32,7,201 ,81 ,208 , 1 ,200 

1810 0676192,3,840,28 

1350 06X6199,4 1 ,7,201,81 ,208,5 ,200,192,3,240 ,16,169,32 
1860 0676157,0,203 
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programma: assicuratevi che non sia pre- 
sente in linea 155, Dopo il primo RI N 
essa comparirà da sola, automaticamente 
e vi permetterà di risparmiare tempo per 
lare un 'altra "‘osservazione'*, Per usci- 


re dal programma bisogna premere 
“RUN/STOP 1 e “RESTQRE*\ Se vo- 
tele sapere il numero di generazioni cal- 
colate digitate RUM 3333, 

Antonio Visconti 


0 REM* * + $*+**** 1 1 * + f + * + + + + + *** + + *¥ + **** * 

1 REm* COMMODORE 64 +* 

E REM+ + VITA ** 

3 RENtt BY ** 

4 REM* * ANTONIO VISCONTI t* 

8 REM*¥t¥***t* f f ***++*+*+ ********** ttt * * 

157 PRINTCHR3K 147>:POKE53280,0iPOKE53281 ,7 

158 PR I NT "ATTENDERE , PREGO . . ■ " 

160 I=0:iJU=0 

17© READQ; IFQ< 0THEHEE0 
1 80 P0KE49 152 + I ; QiUU=UU+Q 
130 I- 1 + 1 t GOTO170 

E£0 IFULK >95325THENPR I NT “ ERRORE NEI DATA “ ~ END 








o 

o 

o 





o 




o 



Fifl* 6 

* Il V 

agame 

1 



221 P0KE631 , 1 3 : P0KE632 ! 1 3 i POKE 198,2 
225 PRINT l- OJ M SPRINT t FRI NT 

£30 PRIMT“ 1 5 5F OR 1 = 1 TO 1 500 s ME !K T s GO TOE 40* S PR 1 NT "RUN240 “ rPR INT^nTTIT 1 END 
240 PR I NT ,, *i ,, « POKE 532 6 9 , 0 s POKE53280 , 0 « POKE 532 8 1,0 
250 FOR K -0 TO 999 

260 C=RND< 1 > i 1 FC< . 35THENA=81 :GOTQ280 
270 A -32 

280 P0KE5529G+K , l 4 ? POKE 1 024 +K , A : NEKT 

230 POKE53230 , 0 IPQKE5328 1 , 0 : F0KE822 , 0 5 POKEB23 ,0 i SYS49 152 

295 FOR I-35236T056295 : POKE I , 14 f NEXT 

23G GOTO230 

1150 DATA 182,0,160,0 

1 180 DATA 189 ,0,4 ,201,81, 208 , 1 , 200 

1 170 DATA 189 , 1 ,4 ,201 ,8 1 ,208, 1 ,200 

1 180 DATA 189,2,4 ,201 ,81 ,208 i 1,200 

1 190 DATA 139,40 ,4 ,201,81 ,208, 1 ,200 


1200 DATA 189 , 4 2 ,4 ,201 ,8 1,208, 1 ,200 
1210 DATA 189 ,80 ,4 ,201 ,8 1 ,208 , 1 ,200 
1220 DATA 189, 8 1,4, 201 ,81 ,208, 1 ,200 
1230 DATA 189 ,82 ,4,201,8 1, 208 , 1 ,200 
1240 DA T A i 92 , 3 ,240, 88 

1250 DATA 189 ,4 1 ,4 ,201 ,81 , 208 ,5,200, 192,3,240,16,169,32 

1260 DATA 157 ,0,200 

1276 DATA232 ,224 ,0,208 ,3 

1280 DATA76 ,116, 192 

1290 DATA76 ,2 , 192 

1300 DATA 169, 8 1 

1310 DATA 157 , 0 ,200 

1320 DATA232 ,224 ,0 ,208,3 

1330 DATA76, 1 16,132 

1340 DATA76 ,2, 132 
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1880 DATA232 , 224 , 150,308,3,76 , £08 , 133,76 
1885 OATA94 ,193,163,81, 157 , 0 , £03 , £32 , 224 , 150 
1390 DATA208, 3, 78, 203, 133,76,94 ,193 
1900 DATA 162,0 , 160,0 

1310 DATA 183 ,159,7,201,31 ,208 , 1 ,£00,284 ,31,48,6 
1320 DATA 183, 175,3,76,833 , 193 

1330 DATA 189, 151/7,201,81 ,208, 1 ,200,524 ,80,48,6 

1940 DATA 189, 176,3,76,251 , 193, 189, 152,7 

1950 DATA201 ,81 ,208 , 1 ,£00 ,224 ,42,48,6 

1360 DATA 133 ,2 14 ,3,76,13, 1 94 , 189 , 190,7 

1970 DATA20 1,31 ,208 , 1 ,200 , 224 ,40,48,6 

1980 DATA 189 ,216,3,76,31! 134 , 189, 19£ ,7 

1990 OATAE01 ,81 ,£08 , 1 ,200,224 ,2,48,6 

2000 DATA 189 ,254 ,3,76,49, 194 , 189, £30, 7 

£0 10 OATA201 ,81 ,208 , 1 ,200,224 , 1 ,48 ,6 

2026 DAT A 1 89 , 255 , 3, 76 , 67 , 1 34 , 1 83 , £3 1 , 7 

£030 DATR201 ,8 1 ,£08 , 1 ,£00 

2040 DRTR189 ,0,4,201,81 ,208, 1 ,200, 192,3 

£050 DRTR240 ,38 ,224 ,4 1 ,48,6 

2060 DATA 189 ,215,3,76,37, 134 , 183, 191,7 

£070 OATAE0 1,81 ,£08 ,5,200, 192 ,3 ,240, 1G, 163 ,3£ 

E©80 DATA 157, 150 , £03 , £32 ,224 ,82,208,3 

£030 DATA76 , 138 , 134 ,76 ,210 , 193 

2100 0RTR1G9, 81 , 157, 150,203 

£110 OATA232 ,£24 ,82,208 ,3 

£ 1 £ 0 OR TA76 , 138, Ì34 ,76,2 10, 193 

£140 OATA16£,0 

£350 DATA 183,0 ,200 

2160 DATA 157,41 ,4 ,232 ,224 ,0,208,3 
£170 DRTR76 , !57i 194 
2180 0ATA76 ,140,134 
2 £00 DATA 162,0 
2210 DATA 183,0,20 I 

£££0 DATA 157 , 4 1 ,5,£3£,££4 , 0 , £03 , 3 

2230 DATR76 , 176 , 134 

£240 DATA78, 159,134 

2250 DATA 162,0 

2260 DATA 139,0,202 

££70 DATA 157, 4 5 ,6,232,224 ,0,208,3 
2200 DATA7G, 195, 194 
££90 DATA76 , 178 , 194 

2300 DATA 162,0, 133,0,203, 157,4 1 , 7,232 
2305 UATA224 , 150 ,208,3,76,214 , 194 , 76 , 137 , 134 
£310 DRTR162 ,0, 183, 150,203, 157, 191,7, 189, 191 ,203 
2320 DATA 157,0 ,4 ,232 ,224 ,4 1 ,£08, 3, £4, 144,3,76,818, 194 

£330 DRTR32 , £34 , £55 , 32 , ££b , £55 , £40 ,11, 238 ,54,3, £03 , 3 , 238 ,55,3,76,0,192 
2340 DATA 32 ,225 ,255 ,240 , 1 1 ,238,54,3,208 
£345 DATA3,£38 ,55 r 3 , 76 , 0 , 1 32 , 76 , £ , 135, -9,-9 

3333 CC=PEEK< 322 >*PEEK< 823) *2561 PR INTIMIMI L NUMERO DI GENERAZ IONI “ 

3334 FR INTT* «CALCOLA TE E 4 STATO "CC = END 

READY * 
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cupi) del gioca guidare l'omino elle 
deve attraversare In schermo ila sinistra 
a destra. Arrivalo alla fanciulla (a sini- 
stra dello schermo) per far riapparire I Vi- 
olino a destra basta premere uno dei ta- 
sti di controllo consentili. 

Ostacoli; bisogna far saltare l'omino 


di roccia in roccia altrimenti cade nei cre- 
pacci perdendo mia delle sue 3 vile. Ogni 
tanto dal cielo piovono dei macigni che, 
raggiungendo inoli re l'uccello trodos vo- 
la ininterrottamente nel cielo. Attenti a 
non urlarlo. Ultimo ostacolo è il bron- 
tosauro Jerrv t situalo nell Vi Iti dio crepac- 


cio}: saltategli sopra quando lira fuori dal 
crepaccio la testa altrimenti cascale giù. 

1 1 gioco termina quando perdete le Ire 
vite a disposinone. 

Andrea t am pione 



xxx STELLA D4 xxx 


XXX 


3Y CAST 


PIANETA *** 


100 REM S A V E 

t 10 REM PER VIC 20 irESPAMSO 
120 REM 

130 REM DI ANDREA CAMPIONE 

170 : 

17 1 PR INT^kiVSA 1 TASTI i 
1 ? E PR I NT " W- < SALTO) u 

173 PRINT*< {SINISTRA)* 1 

174 PR INT” > {DESTRA)" 

175 PR IMT ” 3FREM 1 UN TASTO " 

176 6ETA*: IFA£* H "THEN17B 

ISB POE E 36 8 79 , l 1 0 * PR I NT 11 *J9 U :P0KE368?8 , 15 

130 P0EE3S8S9 ,2551 POR I = 7168T08 185 =POK.E 1,0: NEXT s P0KE37 154 , 127 
D00 FORZ =7 J76T07 183 = RE ADA ? POE.EZ , h i NEXT 
210 FORZ =7184 T07 131 i RE ADB * PQEE7 .BiNEXT 
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220 F0R2 =7 13ET0 7 199 : RErtUC ! PGK62 ,CiNEXT 
230 FOP2 - 7S00TO7207 ! PERDO ; POKEZ ,D:NEXT 
213 FORZ=?208TO7215 sREftDE SPOKEZ ,E '• NEXT 
£50 FOP2 = ì?fi 1GTQ7223 s REftOF i POKEZ ,F JNEXT 
360 FèRZ=7aE4T07231 S REftOG ! POKEZ r G 5 NEXT 
270 FORI =723£T0?239 • REfìDH t POKE2 ,H SMEXT 
£80 P0KE36879 ,111 

230 PRHI1" . J V WMfe Lri»HFÌ«l<! ilI MBmMMHWWDiy H rt P P al F8 njftftfia 3^3 3^3 3^3 aPIAfì" 

300 fp invada aRfta g aafta a^a afta gftrm" 

3j0 pRiMT-snAflfla G3 afta a^a a^a aft^a aft" 

320 GG3UB106O 

330 IFFEEKt H+l ) =2 OR PEEK'1 U+ 1 > *3THEN GOSUB 1200 

3' 10 EFV=0THENGOTQ89$_ 

350 r - INT< 50 tPMD( 1 ) J 
360 LFK M0THEM6O3UB 1020 
370 ! FK. < 40THENGOTO3B0 

360 J= INT' 50*RNOO ) > 

130 IFPEEF ' R-El > - 20RPEEKC R-21 >=3THENV=Y-1 ■ GOSUB790 
■100 IFFEEr.f P +£3> = 20RPEEK( R + £3> = 3THENV =V - 1 i GOSUB790 
1 10 1FPEEK.< R «-£3 V w ÌTHEFF’OKER ,0!R =7900 

4£6 GGSUB530 

■130 IFR + 23>8 185THENP0FER ,0!R = 7900 
■me IFR-E K768GTHE1F0KER ,0!R = 7300 

150 IFJMBTHENFOKÈR ,0!PD*ER-£I ,5 IR = R-21 ! GOSUB780 

>160 IF J< 10THENF0K ER , 0 ! POKER + 23 , 5 s R=R+£3 ' GOSUB760 

173 IR.J+ 1 >S0 96 THE NPOK Elicei 11=80 03 

•130 PQKEH, 0 s FOK.EH + 1 : GOSU6960 

190 FORX = 1T0£ : f EXT 

500 FOKE8076 , 8 

510 GOSUB530 

5cC 60TO330 

510 IFPEEK-1 137 1 =37THENGOTO580 ^ 

510 IFPEEKC 197 ) =£9THEMGOTO620 
550 IFPEEKf 197 ? =33THENGOTO660 

566 IFPEEK-t 0 + 22) =0THENV=V- 1 i GOSUB790 ì GOSUB970 : RETURN 
570 RETURN 

530 IFC1 + 1 >B09STHENQ-Q-I 
590 POKEO ,0 =POKEQ+ 1 ,2!Q=0+ 1 

600 IRPEEK< Q+22 X > I THEMV = V - 1 s GOSUB970 1 GOSUB790 : 0=8096 > RETURN 
610 RETURN 

620 IFPEEK* 0-1 )*8THEN GOSUB 1220 ! RETURN 
630 POKEQ , 0 s ROK.EQ- 1 , 2 SQ=Q“ 1 

610 £FPEEE.< 0+22 ? < > 1 THENV = V - 1 : GOSUB790 : GOSUB970 s POKEQ ,0 : 0=8096 : RETURN 
650 RETURN 

660 POKEC! ,0:POKEQ-23 ,3-.Q=Q-23 


070 

FORX - 1TO50 i NEXTK 


680 

IFPEEK< 0 + 22 >^4THENP=P+500t PR Uff ,l MIETER = ”P 

,É V ITE = “V 

690 

POKEQ , © ì POKEQ+2 1 , 3 i 0 -0 +2 1 


700 

IFPEEK< Q +22 ) ^STHENRE TURN 


710 

IFPEEK< 0 + 22 X >1THENV=V-I i GOSUB790 i COSU8970 

: 0=8096 i RETURN 

7£0 

RETURN 


730 

P0KE3637G ,252 
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7*10 POKE38876,0 
750 RETURN 
7S0 PQKE36S74 , l£8 
^70 P0KE36874 ,0 
780 PÉTUPM 

730 PR 1 NT *' 5S2F E TE R “ 11 P “ V I TE - " V 
300 POKE 368? 7,208 
8 10 F0RX- ITO 100 
880 NEXT 
830 PGK £368 77,0 
3 10 PGKEG , 0 = FGKEG , 2 
850 RETURN 
B68 F0KE3GB75 ,200 
PO K E 368 75,0 
380 RETURN 

330 PQKE37154 , 255 : F0KE368S9 ,£48 £ POEE36S79 , 27 
900 P R I NT 14 .fliMfly ECCfl TP * Uri I PERSO LE " 

SIO FRI NT "TUE TRE VITE»" 

920 PR TNT"2PUNTE96 19= 11 P 

930 FOE,E 198 3£ PP 1 NT 14 ffllMG I PCM 1 ANCORA { S/N ) " : I MFUTO* 
3*1 S I F n * * " N "THE MENO 

350 IFfl'P^ "S" THENPOKE 36879, 1 i 0 : POKE36878 , 15 s RUM 180 
360 ÌFA*< >"S"OR > "N " THEM93Q 
970 F0RU*1T04 

930 POKEQ, 0 i POKEQ +22 ,3 i G = G+22 
390 POR S! = 1 TO 1 0 0 ! NE XT 
1900 HEKT 

1016 POKEQ , 0 : RETURN 

1020 I FPEEK/ TX >6THENGDT0 1040 

1030 IFPEEK* T > "6THENG0TQ 1050 

104 0 POKEY,? i P0KEY-2S ,6 ! GOSUB730 m * RETURN 

1050 POR ET ,0 5 POKET +22 , 6 < 6OSUB730 ‘ RE TURN 

1060 V=3 

1Q70 P =0 ! PR IMT tt aay ETER= "F "VITE=*V 
1080 13 - 809G s U = 8B03 * R -7900 
1090 Y-8 125 - T“8 133 

1 1 00 POKEQ , 2 * POKEN , 4 : POKET ,6 t POKEY , 7 ! POKE807B , 8 
1110 RETURN 

1 120 DATA255 ,126,38,110,28,62,127 ,255 
1 130 DBTR76 ,76, 124 , 12, 12,28,36,204 
1140 DATA 155 ,126,24,24,36,66,129,0 
1 158 OfìTA 138, 79,44 ,252,60, 16,12,0 
1 160 0ATA24 ,63 ,68 , 149 ,217,78 ,60 , 24 
1 170 QATA80 ,90 ,68 ,66 ,66,126,80,0 
1100 DBTBB3 .0 ,80 ,0,60 ,8 ,60 ,60 
1 190 DATA240, 180,224,255,255,224 ,224 ,224 
1203 V = V- 1 £ PR INT" MIETER VI TE = "V£GOSUB 790 
1213 POKEQ,® *Q =8096* RETURN 

1220 P=P + 1000 i PR I NT *92PETER ~ "P "VI TE - " V 2 POKEQ ,8 
1238 Q -8096 s 60SUB790 ' RETURN 


READY, 
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■COMMODORE 64 


Prime N oi e 


k capo ild programma è quello di impa- 
rare» giocando, i primi rudimenti delia no* 
(azione ratificale. 

Sullo schermo appare un pentagramma 
con la chiave di violino. Si può scegliere di 
giocare a leggere le note scrìvendone il 
nome, (Ricordare di fare seguire al nome 
della nota il numero 1 se la nota è lìelfot- 
lava bassa, 2 se in quella alta - Fs* Soli 
Dui ecc.) oppure scriverle portando il cur- 
sore con le frecce nel rigo o nello spazio 
opportuno e premendo return. 


I n alto a sinistra sono indienti i punteggi 
massimi sia in lettura che in scrittura sta- 
biliti nelle parlile precedenti. 

A ogni risposta esatta la nota viene suo- 
nata con dolcezza: su invece h risposi a è 
sbagliata l’errore viene corretto e viene e- 
111 esso un suono poco gradevole. 

A fine partita appare mi giudizio: da 
“molto scarso"’ a “perfetto 11 e le 2.1 note 
su cui si è giocato vengono suonate in suc- 
cessione in modo giadevaie se si è raggiun- 
ta almeno la “sufficienza 1 sgradevole in 




S caso contrario. 

ullo schermo in alto a destra appare il 
punteggio raggiunto in base all'esattezza 
delle risposte e alla velocità. 


1 00 REM ***************************** 
t 10 REM * PRIME MOTE * 

120 REM * IMPARARE IL PENTAGRAMMA * 

130 REM * GIOCANDO SUL COMMODORE G4 * 

140 REM * MARIA SERENA BORGIA * 

1S0 REM * BOLOGNA * 

180 REM ******** ****************** *** 
130 GQSUB300 

£00 GOSUBSaas IFA*=*S rt THEN£00 
£10 GOSUB430 ' EMO 
£30 GOSUB4G0 

£30 FOR I =0TQ23 ; GOSUB250 • NEHT # GOSUB860 
£40 RETURN 
£50 GGSUB300 

£60 IFA*= " L " THENGOSUB350 
£70 1FA*="S"THENGOSUBU00 


Miri. a SiTi iia 

(di inni 13) 




£80 GDSUB1E50 
£30 RETURN 

300 REM INIZIO PROGRAMMA 
3 10 V =53248 5 POKEV + 38 , 6 

3£0 pr un - Marni prime n o t e 

330 PRINT" sc^s^sssfisfts sss:;5535=;;" 

33£ D I MT 1 $ < 1 £ > «DI MT£ C 1 £ , 3 ) S D I MT3 C £4 ) 

334 FORN=0TO 1 1 iREADTl^ (N> s NEXT 
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336 FDRN=0TQ l 1 : READT2 <N ,0 ) 1 > ,T£ CN,2> «NEXT 

340 FGKE5040,13 

350 FORN-0TO62 i READQ s P0KES32 +N, O : NEHT 
360 POKEV , 30 : POKEV +1,10© 

380 POKEV +33 #0 ■ POKEV +23 , 3 * POKEV +29 ,3 
400 RL = 0s RS=0 : 3*54272 :POKES +24 , 15 
410 POKES+5 ,0tPOKES+6 ,249 
420 RETURN 

430 REM F I NE PROGRAMMA 



4 4© PR J NT 11 *J" 

450 RETURN 

4C0 REM INIZIO PARTITA 
470 FU=0 


480 PR I NT RECORD LETTURA " ì RL * 


490 PRINTTAB (35 > * "0* 

500 PR INT " RECORD SCRITTURA 
510 FORCR= ITO 5 tPR INT 

520 FORM- 1T033S FRI NT"-"; :NEXT: PRINT 

530 FEXT ì PQKEV +£ 1,1 

540 PR 1NT“MBBPR0VA DI LETTURA * 

550 PR I NT " O DI SCRITTURA »CL/S>U" 

5B0 GETASs IFA$" “ “ THENSS0 

570 JF<A$< > "L"ANDA$< > M S" )THEN560 

580 IPA^- ■ S M THENB20 

530 PR INT" CQSCRIV I CHE NOTA E' 

800 PR INT " SEGU I TA DA 1 SE OTTAVA BASSA" 

605 FRI NT' 1 E SE OTTAVA ALTA" 

G0S PR I NT * E POI PREMI a^ETURNMi" 

610 GOTO640 

620 PR 3 NT " EXPOVE VA SCRITTA QUESTA NOTA?" 

630 PRINT" SPOSTA IL CURSORE E FREMI tf3ETURNfl” 

635 PR INT"» 1 =OTTAVA BASSA 2 -OTTAVA ALTA * 

640 PRINT "«PRESTO! ANCHE IL TEMPO CONTA.." 

S50 MF =*33 > I *0 

655 RETURN 

660 REM FINE PARTITA 

67© IF(A*= "S “ AMDPU >RS >THENRS a PU 

680 IF CAS* n L u ANDPU >RL >THENRL -FU 

630 PR I NT " il" ì :FORN^ ITOSI :PRIHT M »"; : NEXT : PR I NT “ * 
632 PRINT" 

694 PR I NT " □ *J 

700 £ FPU < 1 00THET-4PR I NT * MOLTO MALE" = GOTO770 
7 10 rFPU<280THENPR INT "MALE " S GOTO770 

7E© IFPIK300THELNPR INT "SCARSO " :£3QTO770 

730 IFPU<500THENPR INT"SUFF IC1ENTE " :GOTO?70 
740 I FPU < 7 00 THE NP R I NT " BENE " 1GOTO770 

750 I FPU < 1000THENPR INT "OTTIMO " :GOTO770 

780 PRINT "PERFETTO ! t " 

770 PR 1 NT " :POKES f 0:POKES+l ,0 




77£ PR INT - a r ' :POKES^0SPOKES+ 1 ,0 
7B0 IFPU<300THEI^QKES+4 , 129 
730 IFPU >239THENP0KES+4 , 17 
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800 FOR I = GTQ2 3 

SOE N-T3 C I > : PR I NT H '> 

8D3 FORQ=lT014;PRIhJT ,< M M ; INEXT 

804 FRI NT" M ,É i PR INT n n" ; 

805 PRINTTBBCB4] >; " £’■ iTl*<N># "U' 1 
810 POKES , TE < N x 1 > :PQKE3+ 1 ,T£CN,0) 

8 12 PR I ITT " 3“ ? : FORO “ t TOTE <N,2> = FR INT “IT * : NEXTQ 

513 I FN-BTHENPR ì MTTAB <8+1 ) ; " U-MB-" ! GGTQ380 

514 PRINTTAB Cfe+ I ) ' *BiS2 fl 
830 F OR N ~ 0 T04 0 0 : HEXTN i NEXT I 
885 POKES +4 , 0 : FORNITO 1 000 i NEXT 


330 F0KE7 + S 1 ^0 

S4D FR mr« amasi" ; spfc c m;mTRfl partita cs/n>:t 

S50 GETA$: IFA$=* "THEN850 

360 IFA$C > "S W BNDAS< > " N" THEN850 

800 REM INIZIO MOSSA 

31© nq=intcrnoc i> *ib> ^ _ 

980 1FN0 -HPTHEM9 1 0 

330 NF~MO: TE -TI : T3 C I > =NO 

840 RETURN 

950 REM LETTURA 

360 PR I NT " 51" r 



370 F ORN= ì T0T2 < NO x £ > s PR I NT " 3S* 1 * ' NEXT 

880 I FNO -0THENPR I NTTAB (6+1 > * ' p U — ^IvEl — U '' * GOTO 1 000 

830 FRINTTABC6+ I ) S "glQ 4 

1030 IF I =0THEN 1 009 

1008 PR lNT rt a jl J :Q = Tf C I - 1 j 

1033 FORM- 1 TOTE C Q , £ > s PR INT W ST ; SNEXT 

1005 IFQ = 0THENPR INTTABC6+ I > ; w ML1 ' 1 GOTO 1 009 

1 007 PR I NTTAB C 5 + I ) ? " QUI" 



1009 PR INT*H" ; 

10 10 FORN= ITO! 4 SPRINT H M W J i KEXT 
1015 FORN’0TO6 + I +5 ì PR I NT H NEXT 

1080 FR 1 NT " IKIIIIII" ? 5 IMPUTNOS 
1030 IFNQ* = T1*CN0 JTHENGK*- "5 1 * s GOTO 1050 
1040 0K*- M N0 ” 

1050 N0*= H " 

1055 RETURN ^ ‘ 

1100 REM SCRITTURA 
1110 PR INT "a" ; 

11E0 FORN^ ITO 14 SPRINT sNEXT 



1185 FORN=0TO6+ l SPRINT 1 ' "NrcXT 
1130 PR I NT ‘ J IIIIM * T 1 $ C NO ) J 
1140 1NPUTNQ* 

1 150 IFFEEK CE 14 > =T2<NO,2 ) + 1 TWENOK#= **S |* tGOTOl 170 
1180 OKS=“NQ ù 
1170 PRINT-a" ? 

1 130 FORN= 1T0TE < NO ,2) tPRINT*H"> 1 NEXT 

1130 I FNO -0THENPR I MTTAB (6+1 )‘ " i GOTO 12 10 

1 800 PR 1 MTTAB C 6 + I > ; ,J mZl" 

1 E 1 0 RETURN 


1850 REM F INE MOSSA 
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1260 IFOK£= "HO "THEN1300 
1270 TE-lNT<50-<Tl-TE)/60> 

I 280 I F TE < 1 THE.f i 1 300 

t 2“0 py=PU+TE ì PR I NT ** MB 1 * i TAB<35 ) ; PU ; 11 a* 1 

] 300 PR |.NT*a" * ' FORM- 1 TP È 1 SPRINT "IT ? : NEXT 

i? |0 IFQK** "NO *THEN! 340 

1320 PR 1 MT " Q BENE U 

1330 GOTO 1380 

1340 PR INTUBI AHI ! ! a" ^ 

Ì3!5G IFAS- "L "THEMPR INT ri E * UN « ) ; w U" 

1355 1 FA* » -S" THENPR I NT" 

136 0 POKES ,T2<NG , 1 > : POKES+ 1 ,T2 <NO ,0> 

1370 IFOK$= "SI ^THENPDKES+4 , 33 s GOTO 1 330 

1 380 POKES ^4 , 133 

1330 FORN=0TO 100ST4EXT 

1388 lFOK«a "SI "THENPOKES+4 ,32 

1334 IFOK*= "NO "THENPOKE3+4 , l£8 

1400 RETURN 

1410 REM HOME NOTE 

1420 DATA D01 ,RE1 ,MI I ,FA 1 ,S0L1 ,LA 1 ,SI l 
143© DATA DOS ,RE2 ,MI£ ,FA2 ,3QL£ 

1440 REM FREQUENZE E POSIZIONI NOTE 
1450 DATA 8,1 80 , 13,9,1 98 , 12,10,247 , 1 1 
1480 DATA 1 ! , 158, 10, 13, 10,9, 14, 182,3 
1470 DATA 1S,1 03 ,7 , 17, 103,8,19, 137 ,5 
1480 DATA £1,237,4,23,59,3,26,20,2 
1430 REM SPRITE3 CHIAVE DI VIOLINO 
1500 DATA 0,8 ,0 ,0 ,3,0 ,0,9 ,0 ,0,9,0 
1510 DATA 0 , 12,0,0, 10,0,0, 14 ,0,0,28,0 
1520 DATA 0 ,56 ,0,0, 104 ,0,0, 223 ,0,1,31,8 
1530 DATA 1,41,128,1,41,0,1,153,0 
1 540 DATA 0,254,0,0,4,0,0,4,0,0,100,0 
1550 DATA 0,108,0,0,120,0 
READY. 







BV CAST 
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si. 

I u veloci (il della moto ìn fra/? Jump 
aumenta qua odo si preme la barra spa- 
/iuirice, e diminuisce propur/iomil meli- 


li ciocci Cru/v Jump conshic nei saliti- 
li am ima molo aitimi bidoni di olio, 
stando perù attenti alla velocità. I inlatti 
quest 'ni tinnì die comporta la perfetta 
riuscita ( o meno} del salto. Sé si andasse 
troppo piano, intani, si ricadrebbe sui bi- 
lioni, Con una velocità eccessiva* durante 
la ricadimi* te molo potrebbero rovesciar- 


porla nell" angoli no sinistro pronto per 
tornare a saltare: con mi bidone io pio 
però. (Juando sono stati saltali i bidoni 
si ricomincia tutto da capo*,. 


ije disunì zia lumen le invece tulle le tre 
molo a disposi/itme lusserò andate di 
strutte, il computer annimccrebbe la H 
oc del gioco, con la possibilità pero iti 
avere la prosit di appello. 

l a lattica di gioco consiste nel lancia- 
re hi molo a lolle velocità, poi tarla ral- 
lentare in prossimità dell ostacolo* la! 
prima volta non è molto lucile. 

Putriti Ogn itami 


T\A 



i rmy jmnp 


1(30 REM ti* CRfiZY JUMP *** 

L L0 REM +** GIOCO PER VÌC £0 INESFANSO *** 

1£0 REM + + + 01 PAOLO OGMIBCNE ttt 

150 t 

180 PR U-rr n a* ÌP0KE36973 > 30 

170 POKESeeGS^SSs Y'77OT:TT-30«D-307aOiS*=7Ì68*PX=3!OJ->3 
1 E0 FOR I “STOS + 10 + 7 +9 : PERDA f POKE I fi i MEKT 
190 PR3NT ,, J»|li|/IC CRfilY JUMPH" 

ZOO PR 1 NT "lUf/ELOC , : Ofc" =PRÌ NT » CHH— MMU ” FX * "OK"B 11 

£10 GO3UB410 

230 POKEY , 0 s POKE Y+ D , 0 

£90 GETfir ì IFA4K > w * THET ImT-0 ì GGT023Q 

240 FOKEY+D- 1 , 1 :POKEY # 0 

£50 IFFEEKv 8 10 1 > - 0THEM480 

260 GETA£iIFA^” * THENTT * TT * . 95 i GO TOSSO 

370 TT ~TT * 1 * 05 

289 1FTT< 5 THENTT -5 

£90 FORT“0TOTT • HEXT 

300 VE-K INT' ■: 1 /TT ? * 1 00 3 - 1? + 10 

310 PR INT^ MJ -.'ELOC. ■ ■" 

3£0 PP 1 MT 11 affluii E LQC ■ "VE ■■ ■" 

330 POK.EY+ 1 ,S: POKEY, 1 s POKEY+ 1 +D ,G 
34 0 FORT = 0TOTT!MEXT 
350 Y - Y + 1 

360 1FY=76 1 1THEHPGKEY+D , 1 : POKEY +0“ 1 , 1 * Y^7093 
370 IFY-732 1THENP0KEY+D , 1 : POKEY +D- i , 1 * Y=tì037 
330 I F TT >50THE MA T -fi T + ì : TT-50 
330 I F fil = 5 TH E MS 30 
400 G0TO24® 

4 IO FORCE “78 IST07833 : FOKECE , &:POKECE+0 r 5 s NEXT 
420 FORCE *7922707943 ! FOKECE , & i PQKECE +0 # 5 : NEXT 
430 FORCE -9120TO314 1 5 PQKECE ^8! FOKECE +D ,5sr JEXT 
440 POKES 102,3IPCKES10£+D,0 

450 FDROS = B 1 03TOS 1 02 +0X i PQKEOS f 6 ! P0KE03 +D ,0SNEXTOS 
460 POKE 03 POKEQS+O , 0 
470 RETURN 

4 89 IFVE >~80ANDY£< =2 1BTHEN500 

430 tFVE< 80 THEMS30 

500 POKE Y + D , 1 : POKEY+ 1 ,5 i Y=Y + 1 

510 FORSS * 1 T03 : Y=Y~£ 1 i FORT - 0TOTT * NEXTT : P0KE8 102,5 

520 POKEB 102+0,0' POKEY , 3 3 POKEY 4 0+2 1 , 1 iPOKE Y+D , 6 ' I EXTS5 

530 IFVE > = 80ANDVE< - 1 10THEM5B0 

54 0 1F7E>" 1 1 lfifJOVE^ = 130THEM6 10 

550 I F VE >* 19 iAKQVE< -E 10 THE MB 20 

560 FORGY- 1TOVE/10-S 

573 Y-Y+l 

500 POKEY ,3* PQKEY+D -1,1 iROKEY+D,0 
530 FORT -0TOTT+4 s HEXTTs NEXTGY 
600 G0T0343 

E 10 F ORT "O TOTT *4 : NEXTT ~ Y-Y-B 1 : POKEY ,3 i POKEY + O+2 1,1' POKEY+O , 0 ! GOTO5B0 
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620 FORPS" 1 TO 2 ! FORT - 0TO TT # 4 ! NEXTT! Y*V-2l ! POKE Y ,3 
630 P0KEY+0+21 , 1 ! POKE' Y + D , 0 5 NEXTPS : 6OTO560 
640 Y^Y+£3 

650 1 F Y- 803SORY-8 1 20GRY = 8 12 I OR f -3 1 4 30P Y - 6 MB THEM^QKE Y-23 +D , 1 ! GDTO950 
666 JFY>=8 1 2 0 A ND Y < =814 ITHEM680 

670 FORT^0TOTT*4!MEXTT< P0KEY,3 i POKE Y + D -23 , 1 = POKE Y+D , 0 i GGTQ640 

BSD 1P0X~3AMDVE>= 100 AMD VE < * 1 I0THEMB 10 

690 I F OX ® 4 AMD VE > * 1 1 0ANDV£< - 120THEH810 

700 I FQX=5AND VE >» 1 20ANOVEC =130THEM8 10 

710 IF0X-6nMDVE >« 120AT4DVEC * 130THEH910 

720 TF0X*7A!4DV£: ' I26AMOVE< «13BTHEM810 

730 I F 0 V = Sfi ND V E > = 130ANDVE< - 1 40THEM8 10 

74» IF0K = 9iflNDVE> = 140rtNOVE< "130THEM8I8 
750 IFGX” 10ANDVE >- Ì5BAMDVE< = IS0THEH8 10 
^60 1FGX - 1 IftNDVE 9 Ì60THENB 10 
770 Y*Y-S3 

FORLiY=YTQSl 18 - FORT - 0TOTT + 4 f NEXTT * PQKEWY- 1 +D , i 
790 POKENY , 9 * FOKEMY+0 , 0 * TT = TT + 4 : NEXTHY 
300 GOTO950 
3 10 Y = Y’-£3 

320 F0RNY = YTG8 1 1 8 * FQRT=0T0TT*4 ! NEXTT ! POKE Y- 1 +D ^ 1 s POKE Y , © 

830 FORT -0TOTT *4 • NEXTT s FQKEY+ 1/2 5 POKEY, 1 
840 PDKEY+l+D,®: Y=Y + 1 ! TT=TT+£ ! NEXTHY! FORT - 1 TG700 * NEXTT 
890 OX»0X+J *Y»T7»i'TT*50s IFOX* 12THEN070 
S60 GOTO 1 30 

S70 PR INT'UnfflMMUa PERFETTO ? ■ M 

823 PFlMT^ lWiia j U^C 1 SEMPRE ! «" : FORT “0TO3000 s NEXTT* RUM 
330 PQKET+D , 1 : PQKEY+1 ,5! Y-Y * 1 

9GB K0R3S" iTOe J Y = Y-£ 1 : FORT=0TQTT*2 : NEXTT : P0KE8 i 02 , 5 
310 f J GKE8102 + D,0:POKEY, 3 i POKE Y+D +21 , 1 sPOKEY+D ,0 * MEXT5S 
920 F0R9S” 1T021 FORT =0TOTTt6ì NEXTT! PQKEY+22 ,0 
330 POKE Y+D 1 s POKE Y+D +22 ,0!NEXT3S 
840 P0KEY+22+D, 1 iPOKEY + 44 ,9 

350 Y=7730iPX=PX-l :VE“0iTT=50: 3 FPX-0THEN970 
960 FOPT“0TO2500 i NEXT iGOTO 1S0 

370 FORT*0TOS00iMERT!PR INT M aa GIOCHI ANCORA <S /N!» 1” 

3S0 GETSsT : IFS*’- H w THEM980 
930 I F S $ = M 3 <j THE NRUH 
1008 IFS^ 1 * *M“THENSYSG4B0£ 

10 10 IFS*' >"S M ORS*< >*N"TKEN980 
1026 DATA® *4,24,66,52,90, 173,66 
1030 DATA®, 0,1 ,3,3,5, 10/4 
10*0 DA TAO , 64 , 138,224,64, 166,208,32 
1056 OATA0 , 72 , 1 22 ,101, I 22 ,72, 160, 64 
1063 DRTAG , 32 ,122,101,123,79,175,95 
16^0 DATA®, 0,0, 1 ,3,7, 15,31 
1080 DATA©, 0,0, 127, 77,93,73, 127 
1090 DATA®, 0 ,0 ,64 ,96 ,112,120,124 
J 100 DATA255, 255, 0,255 ,0 ,0 ,255,0 
1110 0 ATA0 , 68 , 181 ,94 ,44 ,60 , 12 ,8 

PEAOY. 
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Vie 20 INESPANSO 


xxx STELLA F4 **■* 



tìV CAST 


FlIP! 


Scopo de] gioco; far scoppiare tutti ì 
palloni visualizzati In alto sullo scherni o 
con due omini che saturno ininterrotta- 
mente a turno su un trampolino* 
li gioco termina se un omino cade sul- 
l'altro o se non cade sul trampolino. 

Andrea Campione 


xxx STELLA E 4 xxx 



10© REM * FL IF 

110 REM + PER VIC 20 INESPANSO 

120 REM X 

130 REM * DI AMDPEA CAMPIONE 

tea * 

170 P0KE36879,38 
180 POKE360B9.E40 
13© P0KE3BS78 # 1 5 

£00 FRlNT"Ìie*M^="-"FLIP ! =« = ** = =*--" 

2i0 eosuer^© 

H£0 PR 1 NT " DEV 1 FAR SCOPPIARE I PALLONI IN ALTO AL“" 

2 30 PR 1 NT " LO SCHERMO CON 1 DUE " 

24 0 PR I HT "OHI HI ACROBAT 1 i GU I - " 

250 FRI NT "DA IL TRAMPOLINO PER 11 
280 PR I NT "ACCHIAPPARLI AL VOLO" 

£65 PR INT *' USANDO I TASTI -M-N- # 

270 PR1NT"MFREMI UN TASTO,,." 

280 GETA^i IFA^“ a "THEN280 
23© P0KE3S8S9,255 

300 FOR I *7 168T08 185 s POKE I , 0 * NEX T 
310 F-0:Q^8174 :W=8175 
320 V=2iN=3 JR^Q-22 

330 F0RI«7176T0?183 CREADRIPOKEI ,A*NEXT 
34© FOR 1=7 184 TO? 131 t READB i POKE 1 i NEXT 
350 FOR I =7 192T07 1 SS : REAOC 6 POKE I ,C*NEXT 
368 POR I -7200TO7207 s READD : POKE 1,01 NEXT 
370 FOR I-7208TO7215SREAOE E POKE 1 ,EsN£XT 
380 FORI -72 16T07223SPEADF! POKE I ,f tNEXT 
390 POKEQ , V s POKEU rMs GOSUB630 
400 IFG-2THENP0KEQ , V : POKEW, N 8 POKER , 0 s R = W-E2 
4 l 0 I FU-5THEI POKEQ, V SPOKEU,N: POKER ,0iR=Q-22 
420 I FPEEK< R -22 > * 1 THENP =P + 1 00 5 POKER -££ , 0 i G0SUB68© i GQT04 90 
430 IFR*2£< 7680THEMGOTO490 

,440 1NT< 10*RNDC É> > 
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150 
160 
% 7 0 
■Ì6G 
490 
500 
570 
5£0 
530 
540 
550 
560 
570 
530 
590 
600 
6 10 
6£0 

6 30 
640 
650 
660 

S?G 

£90 

SS0 

700 

7 10 

reo 

730 
74 0 
750 
760 
770 
780 
790 
300 
S 10 
3£0 
090 
840 
850 
360 
S70 
880 
830 
900 
910 
9£0 
330 
940 




, 

. ■ li : ■■ j . 


IFH r STHEMGQÌSUB7 30 - POKER ,0 SP0KER-2 1 ,6tR»R-81 

IFH'" 5THENGOSUB 730 : POKER , 0 : POK ER -83 ,6SR=R-23 s 

GU=UB5ÈJ0S jL'fi_. 1^0 

IFPEE^ 1 ' P *22 \*30RPE!EK< R +22 > =4THENGOTO800 

IFPEEKC RtSS ? =2TH£NV=4 ! N=5 s POKEW ,N i POK.EQ ,V ! POKER , 0 i G0SUB680 S GOTQ400 

nESKlj ' v t v +£ ' • jììt* nTo — *. ••-'•. ùftv-ì-- ■ •. wi” : ' V ■■■'■ • •: • • ti ri Lil fcl:.' i 4 • vi ir IKsy j; : 

IFPEEKC R + 22 >=5THENN-3!V = 2 *. POKEW, NrPOKEO ,V : POKER ,0 i GOSUB6S0 i GOTO400 

IFR+22 >8 185THEN6OT0800 

FOKER , 0! POKER +22 ,G t R=R+22 

FQRKMTOLiNERT 

GOSUP560 s GQTQ490 

IFPEEKC 1971-36THENGGTO530 

IFPEEKC 137 > =28THENG0T06 10 

RETURM 

IFl'J ’S185THEMP0K.EQ ,0: 0 = 8164 : W = 9 1 65 i POK.EQ , V i POKEW ,N: RETURN 
POKEQ, 0sPOKEU,0: POK.EQ + 1 , V:POKEW+ 1 ,N»Q-QM ! W=W+H RETURN 
IFQi 8 1S4THENP0KEQ ,01 POKEW, 0:Q*8 184 : W = 8 1 85 : POK.EQ , V : POKEW ,N : RETURN 
POKEQ, 0! POKEW, 0! POK.EQ -1 A': POKEW- 1 ,N1Q=Q- i : W = W- 1 ì RETURN 
PR.IMT"» ftftftflaftflrtftft” • - - - 
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PR IMT 11 n fi A fi A fl A A" 
PRINT' Pi A B A fi A A A A A A 1 * 
PRTNT" A A A A A A A A A A" 

returm 

PQKE30974 , 188 

FOPR- ITO 10 :HEXT: PR [HT”*ilUP "P 
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P0KE36EJT4 ,0 
FORX = 1 TCJ1 00 i HEXT 
RETURM 

IFPEEKf R -2 1 ) = 10RPEEKC R -23 > = 1 THEHGOSUB340 ! RETURM 
RETURM 

' ■ _ . . . 

PR IMT* - ai. 1 VELLO D1FF1 COLTRI ' " 

PR lNT h 0 = D IFF IC ILE Ì00*FFiC ILE" . 

IMPUTL 

IFL > S 00THEFPR I NT” TROPPO IFIFOhC ! s GO10770 
RETURM 

P0KE36879, 1 10 ^ : ; ^ ; 

PR r NT '* ailXWMBflPECCATO ! ! ! ! ! ! ! ! M M M ,p 
P0KE36377 .£00 . 

POKE 1 98 , 0 ? FOR I - ITO 1000 : NEtfT 
PQKE36977 J 

PR J FÌT " SW^REM I UM TftSTO - , - . . " 

OETrt^; I F P ^ “ " ^THEN8B0 

porr 

DBTR60 , 1£6 ,£55^855, £55, £55^ l£6^60 

0RTR3 -4 ,2, t .0,0-0,0 V ' - ^ 

DRTR44 .44 , 63 . 1 3 . 1 4 1 , 84 r 5£ , £0 
□RTR52 r 5£ , £5£ , 1 76 , 1 77 , 4 £ . 44 . 40 
0RTR16 .32.64 , 1 £3 .0.0 ,0,0 
DATR90 ,9tì , 1£B £4 ,E4 ,36 ,66,68 

P - P + 160 ;PR INT-MIUP^P : POKER ,0iGGSUB6B0 s RETURN 
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Modifica dei 
Comandi Basic 

Originali 


C^uesto artìcolo e i programmi in esso 
contenuti sono utili net caso in cui si desi- 
deri modificare alcuni comandi Basic, po- 
co usati nel Commodore 64, con altri ri- 
spondenti a particolari esigenze personali. 

Si presupponi' solo urta piccola cono- 
scenza del linguaggio macchina, cosicché 
con un po’ di attenzione e buona volontà le 
seguenti righe saranno accessibili a tutti. 

Iter raggiungere il nostro scopo, è prima 
di tutto necessario capire come ogni nor- 
male comando è interpretato e latto fun- 
zionare, dopodiché l'effettuazione delle 
modifiche diviene una naturale conseguen- 
za. In R.O.M., da 41 1 18 a 41373, c'è una 
tabella di 256 byte dove sono memorizzate 
le parole chiave, carattere per carattere, in 
codice ASCI 1 ,»edi figura h. Ila questa 
tabella ** alleano solo TI, TIS, ST, pi greco 
e GEI#, gestiti in modo diverso e non in- 
fluente ai nostri fini. 

Ogni parola viene separata dalla se- 
guente mediante r aumento del codice del- 
l'ultimo carattere di un numero fisso pari ,* 
128; al RUN, in caso di programma (o alla 
pressione del RE I l'Kf'* in caso di coman- 
do diretto} f interprete Basic compara ugni 
parola chiave con quelle inserite nella ta- 
bella mediante una ricerca sequenziale e, 
nello stesso tempo, tiene il conto delle pa- 
role lette, in modo da avere il numero 



d'ordiiH 11 del comando. 

^le la ricerca non sortisce alcun effetto, 
allori! si ha il salto ad una routine che 
stampa sul vìdeo SA M AX EKKOK. Jn 
caso di esito positivo, invece, il numero 
(l'ordine indica la posizione in un'altra 
tabella, dove risiede l'indirizzo, diminuito 
di ima unità, delta routine ni linguaggio 
macchina relativo alla parola chiave, 

Perciò, ricapitolando: 

• c’è ito a i alleila ut ROM lIu contiene il 
codice ASCII, carattere per carattere, di 
ogni parola chiave; 

• esiste un’altra labi Ila in ROVI conte- 
nente gli indirizzi dì inìzio delle moline in 
linguaggio macchina relative a ciascun 
comando; 

• ir memoria sono conservale nuche le 
routine in l.m. che sortiscono Iteffetlu de- 
siderato dai vari comandi impartiti. 

Per mettere in pratica i nostri intendi- 
menti, [lobbi a ino tenere in dilli tu conto 
tutte queste cose. Le nostre nuove parole 
chiave devono essere memorizzate, carat- 
tere per carattere, nella prima tabella; le 
relative routine in J,m. devono trovar posto 
in una zona di memoria libera e sicura da 
possibili sovrapposizioni; gli indirizzi ini- 
ziali di ciascuna nuova routine devono es- 
sere opportunamente posizionati nella se- 
conda tabella. 
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Tutto questo chiaramente comporta del- 
le alterazioni all'interprete Basic ma, poi- 
ché esso è residente in ROM, prima di con- 
tinuare è necessario aggiungere qualcos'al- 
tro, 

Il BASIC ufficiale 

L 'interprete Basic è posto tra te ioca- 
eionì SAJMMF (41944) e SBFFF (49151 | che, 
come ihhiamo detto, costituiscono Hk di 
memoria a sola lettura (ROM). Esistono 
però, sotto la stessa, 8K di memoria RAM 
aggiuntiva, dei tutto inusata, ed una porta 
(la locazione I j che si occupa di seleziona- 
re un banco o l'altro di memoria. Quando 
tale porla contiene il valore 55 allora il 
ìistema seleziona la ROM ed esclude la 
RAM sottostante, mentre col contenuto u- 
giiak a 54 si ha i utilizzo della RAM con la 
conseguente esclusione della ROM. 

Tenendo presente che, in condizioni 
normali (con la ROM attivata e la RAM 
esclusa) iti questa zona qualsiasi tentativo 
di lettura riporta il contenuto della ROM 
ed ogni tentativo di scrittura modifica la 
RAM sottostante e non la ROM, possiamo 
risolvere ti nostro problema usando un 
semplice ciclo che legge il contenuto del- 
f interprete e lo ricopia in RAM, dopodi- 
ché, ponendo nella locazione I il valore 54, 
si* comunica al sistema di attivare la RAM 
al posto della ROM. Solo in questo modo 
il microprocessore non va in crisi in quanto 
continua a trovare al loro posto (che siano 
in RAM e non in RUM per lui non fa alcu- 
na differenza) le varie routine thè gli ser- 
vono. Ora che abbiamo Lutto in RAM, po- 
tremo effettuare quelle modifiche di cui 
sopra senza alcun problema. 

In Basic» il ciclo che copia l'interprete da 
ROM in RAM è il seguente: 

l-urx = 40960 TU 49151 : POKE X, 
PEEK (X) ; NEXT X 

In linguaggio macchina l’esecuzione é 
più rapida (vedi figura 2), 

Fatto questo, per inserire i nostri nuovi 
comandi dobbiamo comportarci esatta- 
mente come il sistema operativo, e precisa- 
mente: 

# memorizzare in un'area sicura la routi- 
ne in linguaggio macchina che eseguirà il 
nuovo comando desiderato: 


• sostituire una parola chiave già presente 
nella tabella dì Figura I con la nostra nuo- 
va parola facendo in modo che queste ab- 
biano la stessa lunghezza; 

• memorizzare a partire dalla locazione 
specificata nella colonna Lh l indirizzo'' di 


N, Par. chiave r Indirizzo 2° Indirizzo 


% END 

41118 

40972 

1 FOR 

41121 

40974 

2 NEXT 

41124 

40976 

3 DATA 

41128 

40978 

4 INPL TV^ 

41132 

40980 

5 INPUT 

41138 

40982 

6 DIM 

41143 

40984 

7 READ 

41146 

40986 

fi LET 

41150 

40988 

9 GOTO 

41153 

40990 

IO RUN 

41157 

40992 

11 1F 

41160 

40994 

12 RESTORE 41 162 

40996 

13 GOSUB 

41169 

40998 

14 RETURN 

41174 

41000 

1 5 REM 

41180 

41002 

16 STOP 

41183 

41004 

17 ON 

41187 

4 1 006 

Ifi WAII 

41189 

41008 

19 LO AD 

41193 

41010 

20 SAVE 

4H97 

41012 

21 VERIFY 

41201 

41014 

22 DEE 

41207 

41016 

23 POKE 

41210 

41018 

24 PRIVI* 

41214 

41020 

25 PRIVI 

41220 

41022 

26 CONT 

41225 

41024 

27 LIST 

41229 

41026 

28 CLR 

41233 

41028 

29 CMD 

41236 

41030 

30 SYS 

41239 

41032 

31 OPEN 

41242 

41034 

32 CI. OSE 

41246 

41036 

33 GET 

41251 

41038 

34 NEW 

41254 

41040 


] AV OLA 1 Jdlc parale chiave 
‘I m4ti r i/ / ìk' i*h1*l-j Ij Iwaritww in tu mi mi a tj nurtiiurii- 
/ arido* (kllii pc rota liiirr «uiiw pvr t#rdltm in vuduLV 
ASC II, 

indirizza' indica k bcj/iiiiiit dtur ridiedi- ai hyi* luna 
di-li» n,b<i he *n l.m. che tatuai il ernmanUn rrilllvo alta iijihìj 
cfeàate. 

Sub* vtjir infunale lui le i|u*lk' parolt' bui? ipì-c b irti hk- : 
£,rrf parie fila non i i la cui uni italiani pr^uppoav alrir ,-y#o- 

u^rnir di l BOA ùIEiMuNÌIc Ulrtl 1 ,1 Ut' liti m pii l> Cambi a- 

mrain di indi ri mi 


Figura 1, it valore ASCII di ogni carattere 
della nostra nuova parola chiave, facendo 
Rlen /ione ai 1 aumentare di 128 il valore 
dell'ultimo carattere; 

• diminuire di urta unità la locazione ini- 
ziale della routine precedentemente me- 
morizzata ed inserire tale valore nel for- 
malo byte basso-byte allo a partire dalla 
locazione specificata nella colonna "2" in- 
dirizzo" di Figura 1 (per eventuali chiari- 
nienti circa la dizione byte basso-byte alto, 
leggere l'articolo di Alessandro t)e Si mone 
a pagina 43 eseguenti di COMMODORI. 
COMPUTER CLUB n. 8); 

• informare il microprocessore che si vuo- 
le utilizzare la R AM al posto della ROM 
con un: POKE 1,54, 

Come esempio pratico, vediamo un nuo- 
vo comando che ci permetterà di cambiare 
il colore del bordo e dello sfondo dello 
schermo del t’64 senza far uso di alcuna 
POKE. 

Come prima cosa» trasferisco l'interpre- 
te Basic da ROM in RAM mediante la 
linea già citata o servendosi del program- 
ma di Figura 2. 


FIGURA S 
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00 

,C002 
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^C003 

85 

FC 

, C00S 

fi 9 

A0 

r CB07 

85 

FD 

,CP09 

Bi 

FC 

. C00B 

□ I 

FC 

,C000 

CS 


,C00E 

DB 

F9 

,cr 10 

E6 

FD 

, cn i e 


FD 

, c;e 1 4 

C9 

C0 

,C01fc 

D0 

F 1 

c:0 te 

* 

80 



In seguito preparo la routine che deve 
effettuare it lavoro prima accennato e la 
memorizzo in un'area sicura (scelgo di 
cominciare a partire dalla locazione S019), 
come in Figura 3. 

alto questo, decido di sostituire b pa- 
rola chiave Li 1, quasi mai usata, eoi mio 
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nuovo comando ;it quale, in con siderazione 
del fatto che LET è dì tre lettere, assegno 
il nome COL (abbreviazione di ‘Colour'). 

Dalla colonna *T‘ indirizzo” di Figura 
1, iti corrispondenza a LET, trovo la loca- 
zione di inizio dove memorizzare i codici 
ASCII relativi alle lettere COL (ricor- 
darsi di aumentare l'ultimo valore di 128), 
ed eseguo; 

POKE 41 150*67 (67 - valore ASCII 
della lettera T") 

POKE 41151,79 (79 = valore ASCII di 
‘O’J 

POKE 41 152,264 {204 = valore ASCII 
di + 128)* 

Dalla colonna ”2* indirizzo' 1 di Figura 
1, sempre in corrispondenza a LE I * trovo 
la locazione da cui cominciare a memoriz- 
zare nel formato byte basso-byte alto Pini- 
zio, diminuito di una unirà, della routine in 
l.m. che esegue il nuovo comando COL 
(SfH9-l=$JW18) ed effettuo: 

POKE 40988,24 (24 = corrispondente de- 
cimale del numero esadedmale 18) 

POKE 40989,192 (192 corrispondente 
decimale del numero he*, CJF). 

lutine, informo il microprocessore di vo- 


FIGURA 

3 



r C0 1 9 

30 

40 

CB 

,C0 IC 

20 

FO 

AE 

,C0 1F 

A3 

15 


,C021 

DS 

23 


^C0£3 


14 


,C©25 

C9 

10 


,C0E7 

B0 

1D 


,C023 

48 



,c^aA 

ae 

40 

C0 

, C02D 

68 



,C03E 




, C02F 

A5 

15 


,C031 

00 

13 


,C033 

A4 

14 


,C035 

C0 

10 


,C037 

B0 

0D 


,C033 

8t 

30 

00 

r C03C 

8C 

E ì 

CI0 

, C03F 

60 



,0046 

20 

SA 

AD 

,0043 

4C 

F7 

B7 

,0046 

4C 

48 

B2 


ler selezionare la RAM al posto della 
ROM con: POKE 1,54. 

A questo punto, ogni qualvolta l’inter- 
prete incontrerà il nuovo comando COL, 
la cui corretta sintassi è: COL valore I, 
vulort- 2, dove vaiorei e valore! sono due 
numeri tra He 15, colorerà il bordo dello 
schermo col colore corrispondente a volo- 
rei, e lo sfondo con quello corrispondente 
a valore! (eventuali errori di sintassi o 
quantità genereranno gli appropriali eucs- 
saggi). 

P er tornare al Basic "normale” basterà 
premere contemporaneamente RUN/S I OP 
e NESTORE oppure digitare in modo di- 
retto: POKE 1,55 e premere il RETURN, 
mentre per rientrare nel nostro Basic per- 
sonale basterà digitare in diretto: POKE 
1,54 e premere il RETURN, 

Per finire è stato riportato il listato del 
programma descritto per la gioia di lutti 
coloro che, non avendo voluto o potuto se- 
guirmi erano solamente interessati a po- 
tenziare il Basic dd loro computer con un 
nuovo comando. 

Giovanni \ errdti 
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Eit) Script 
S|ìOf:; Script 64 
Vie SpcoJ Script 
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Liilrrc Varie 

Pei Spccd 

Altura Camptler 
Mctìitor 
.Asiembler 
Turbo Tabe 
Diih Revcider 
GmiM«orjScoiEp' 
Metter 
Sjpcr Baie 
Data Ltàu 
Baste 4.0 
Fasi Copv 
Saper Copy 
Super Ojpv Tape 
80 Colonne 
Dottori 64 
PC IriEerface 
Asudcgy 
L? Bask e LM 
Lez l 'so Spde 
Totcìikio 
Super Sant 


75.000 ,D: 

85 .000 i D/N - 
61000 iD/Nì 
15 000 ' D - V ' 


Ri.000 iD'T 

60.000 t m 

29.000 D-X 

45.000 -DN 
29.-D0C' DA' 
*9.000 (D/N) 

45.000 (D) 

110.000 lUi 

120 000 iDt'E- 
Liy.m « D:K i 

79.000 ..DfN] 

55.000 iDrVi 

w m irvi 

55.000 im 
45J0OO iD;N- 
ti 000 iD;N’ 

w ooo m) 

Étì.000 (D'Nl 

45.000 D.'Vi 

45.000 -D/Vl 

60.000 D'N 

>7.000 <m 


Koala taisiick 

90.000 (DI 

SyntbéiOtiftd 

55000 IDI 

BabyGntr^l 

59,000 1 DfHi 

Sa® Hedier 

85.000 (DfE> 

Novità 

VlYAlà m 

Gupa.v Lgut t Pen 

Sofitvre 

90.000 iD'Ni 

Tecb Sketch 

135.000 

Libili Pen e Micio llkai tatti r 

Ccanfltodmt- VIC 20; 

Data liase 

40000 

40 Colonne 

40.000 (D.'Ni 

C, Inditir.z: 4'Xl 

65.000 (Di 

,‘\cc esseri: 

Slonecliip 

107.000 

16K Eapoftuon per VIC 20 t)K, BK, 

I 6K S^rtehablé 

Dischi cerni 10 

40.000 

Joystick Chilkigci 

Sparo rapido 

Li proteaacnc TTe 
per VIC 20 e Lotti- 
mollare M 

22,000 

Corno. Protectat 

20.000 
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I w a stuoli) t ormai ìmomimiata, t- tuo 
essa anche le fezioni di matematica* Se 
ditate frequentando la seconda liceo scien- 
tifico vi imbatterete per la prima volta 
nella risoluzione delie equazioni di grado 
superiore al secondo. 

Mentre per la risoluzione delle equa- 
zioni di secondo grado bastava applicare 
una semplice formula, per le equazioni di 
grado superiore la ricerca delie radici 
non e cosi immediata, fili unici modi per 
risolvere tali equazioni (ad esclusione di 
casi particolari come le biquadratiche f 
.sono: 

a) ta scomposizione in fattori di primo e 
secondo grado, 

b| La ricerca di una o più radici e rabbas- 
sa mento di grado dell" eq nazione stessa 
usando la regola di Ruffini 

Come e noto questa si applica nella 
maniera seguente. 

Si ricerca una radice sostituendotutti i 
divisori positivi e negativi del termine no- 
to, nella variabile x Uno a quando sì trova 
il numero che azzera I 1 equazione, che è 
appunto la radice cercata* Si scrivono poi 
i valori di tutti ì coefficienti delle x ordina- 
ti secondo il grado descrescente delle \ 
curando di inserire degli zeri per ì termini 
mancanti al fin terno del tipico schema a 
'porta da rugby 1 , come mostrato nell'e- 
sempio in figura I, 

Il termine noto (che sara come e ovvio 
sempre presente} andrà inserito oltre la 
barra di destra. Si inserirà nello schema 
la radice trovata precedentemente, come 
mostrato in fìg. L e sì procederà nel modo 
seguente. 

Ni scrive il primo coefficiente sotto la 
riga orizzontale* lo sì moltìplica per la 
radice e si scrive il risultato sopra la riga 
orizzontale incolonnandolo con il secondo 
coefficiente. Sì somma ora alge liricamen- 
te il secondo coefficiente con j| risultato 
appena ottenuto e si scrive il risultato 


Primi] coetficicnle 



K. = Ràtiice pet cui dividere 
RS I . RSH = Ki^ulriin Udfci somma 


FIG. 1: stilema 
?+ £ + l-tf 



! ì 

1 

i 

1 

*1 





i 

d 


FIG. 2: evempdù di applka/jqiie. 

sotto La linea. 

Si continua ora ripetendo il procedi- 
mento per tutti i termini, moltipllcando il 
risultato appena ottenulo per la radice 
ecc. come mostrato ancora in figura l T 

L" evidente che il numero che andrà 
scritto sfitto la riga orizzontale incolonna- 
to con il termine noto dovrà sempre risul- 
tare uno zero* alti intenti significherà o 
che abbiamo sbagliato i conti o che il nu- 
mero per cui abbiamo diviso Inequazione 
non era una radice della stessa. 

A questo punto la divistone c effettua- 
ta* ! mi meri che troviamo scritti sotto la 
riga orizzontate sono i coefficienti ordina- 
ti in modo decrescente de ir equazione in- 
feriore di un grado a quella data. Se l'e- 
quazione risultante dovesse essere ancora 
di grado superbire al secondo o non risol- 
vibile per via elementare si ripeterà il 


procedimento descritto fino ad ottenere 
una equazione immediatamente 
risolvibile* 

ed ialiti i ora un semplice esempio per 
chiarire il tutto e passiamo poi alla descri- 
zione del programma* 
stj3 + x]2 4 - x +1— i) e una semplice 
equazione di terzo grado* Proviamo a ri- 
durla ad una equazione dì secondo grado 
usando la regola di Ru flint. 

Per prima cosa analizziamo i divisori 
del termine noto. Interi sono solo + 1 e - 1* 
Iniziamo a provare con questi due. So- 
stituendo + 1 al posto delle X otteniamo 
+4, quindi +1 non è il numero che 
cerchiamo* 

Sostituendo -t otteniamo 0, avendo 
conferma che -I e una delle tre radici 
delfeq unzione* Applichiamo ora la rego- 
la dì Ruffini come mostrato in fig* 2 ed 
otteniamo xf2 +1 = fi che e appunto 
P equazione di secondo grado risultante 
dalla divisione, 

ed i amo ora come gira il programma. 
Dato il KLN vi sara chiesto il grado 
dell' equazione da divìdere, e poi i coeffi- 
cienti delle x in ordine decrescente di gra- 
do* LVqu azione potrà essere al massimo 
di quarto grado, altrimenti lo schema non 
sarà simmetrico* 

t ua volta inseriti tutti i coefficienti, si 
potranno verificare due casi: 

1/ dopo qualche secondo apparirà lo sche- 
ma completamente risolto; 

2/ dopo qualche secondo apparirà la 
sc rìtta DIVISORE? 

Nel primo caso significa che il compu- 
ter ha trovalo automaticamente una radi- 
ce dell 'equazione e che ha quindi già ri- 
solto tutto. 

Nel secondo case» il ciao pii ter ci comu- 
nica che non ha t mvato divisori e chiede a 


Computer Club - 39 




h ìi flint 



noi di cercarne uno. Una volta che lo 
abbiamo trovato basta inserirlo e il com- 
puter eseguirà tutti t calcoli per noi. Con- 
verrà anche controllare che il divisore 
non sia +/-J, in quanto il computer, pur 
controllando tutti gli interi “e mezzi 14 dei 
divisori del termine noto, per le inevitabi- 


li imprecisioni di calcolo, potrebbe non 
trovare il tre (provate a far eseguire 
PR1NT S|4 e capirete perchè K 
Con il tasto F3 effettuare un'ulteriore 
divisione del risultato ottenuto, nel caso 
che questo sia una equazione di grado 
ancora elevato. 


N.B. Se avete digitato correttamente il 
programma, provate ad inserire i dati 
relativi alla seguente divisione: 

Il risultato dovrebbe essere; 

2x 3 s 2 +4k +1 Resto — 1 

Andrea & Alberto Boriani 


1 

1 10 
120 

130 

140 

1 59 
1OT 
1 

180 
1 30 


REM *** RUFF INI INTERPRETATO Ori i BORI AH i *** 


KOFf-lHi i 




2 10 
£20 
230 

24© 

250 

26© 

27© 

280 

23© 

300 

3 10 
320 
330 
340 
350 
360 
370 
380 
33© 
400 

4 10 
420 
430 
440 
450 
460 
470 
430 
490 
500 

5 10 


PR I NT " 

pr int " irnii Mtmitikmm 

IFH > ^iTHCN?nit(T l, £a rt * il «rì : 3GToI30 
GLR 

i tra ì * ■ iati «& ar>Gù ùlcU lguaz ione”; a 
d im< m : > i x-a 

pr i nt , ’ 1 mmmmmmu 11 ; intìt 6+6+n n “i ” 

PR INI 14 ] 

PR I NT “ 

PR INT Jl IMBK i 1 ) 7 ABC 6 +6 *H ; ; * | " 

li ■*; Tfi&i 6+èàH >; ,H i " 

1 I Gh +6 ; F K 1 N T - ; i . 42 aT : PR l NT " i 


" TABC 6 + 6+AX " i 1 
i iJ ; TrtB< G+6*A > ; " i J1 


PR INT* 1 
PR INT “ 
PR INT ,! 
PR I NT " 


■ a r“ r ■ r 1 " 

/ B ’p UA' J 


INPUT FKrt> 


" ; i i / r 11 \ 

p ; Tv, o; 6 ro+A ’ * 

IFP= ITiJEHFR II IT ’ M" *0070310 
PRIMT'*K0EFFI GENTE 3 1 X ? ”A> 

A = A “ 1 

IFA>®0THtNPRlNT "□ 

PR I NT TT1IIIIIIT ì 

FORD = XTQ0STEP - l - FRINÌ T ASC X -0 ) / ; H\ □ > : : NEX T 

01 * ì 

IFN< 0X0THENO I = -i 

FORO »-0TGMt STERO 1/2- *==© 

FORS = 0TOX: r-tf+£tS*H( SXN2XTS 

IFV-0THEW40 

NEXTC 

FORC-0TO-rK O zSTEr -U 1/2 * Y = 0 
FOR3«0TO y. l Y-Y i G ì 3 4 14< 5 > : HEXT3 
IFY*0THEN44© 

NLXTC 

I NPUT 11 ji»il£ IV 1EÙRE - ; C 

pr i nt ■■ ; c ; 


i BU 7 0260 


F=©:F0R3=XTÙÙ3 3 »_F - 1 

MC D)-TK 3, r- .7 D? *C 

IFD< /07HG1 ìPR I NTTABC 13 + 6*; X -□ > z ; F J 

PR I NT 14 HH JJ 

PR I NTTfìBC 7 t c +■ ; X-D ' ; i K 0 > ; 11 Hill 1 1 i NEX T 
GETFS : I.FF*- ‘ l "THEN30S 

IFX>=lTHEr iFL-R:= . io.,:; v; I - ; ; sf*k i > - NEX f tX = X-l s p = l s BOTO 120 


READY 


m 
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Una cassetta eccezionale/ 
dcic&iedere oMa tua edicola. 



Un programma 
super per 
turbizzare 
i tuoi programmi 

(C64) 

U n package che 
ti fa l'oroscopo 

(Vie 20 con espansione 
da 16K e C64) 

■ 

Conto corrente 

(Vie + C64) 

Visitors 
un supergioco 
mai visto 
per il Vie 20 

Shuttle (C 64 ) 

Pinocchio <C 64 ) 

Panettone <cm) 

Energy (vie 201 

Mr. Chomp (vie 20) 











OFFRONO 
LA PROPRIA 
CONSULENZA 

Pomeriggio solo per Foggia o provincia, Leo- 
nardo De Palma Via T rane esco Marinat e io, 7 
cap 7 lì 00 Foggia Tel OSA 1/79700 (pomerig- 
gio), 

Dimostratore c/o installatore di personal 
computer Commodore, anche a tempo pieno, 
5tona Vi ter ho o Roma. Andrea Di Palermo via 
Silvio Pelino. 14/ A cap 01030 V usa follo (VT) 

Dimostratore offresi. Giovanni Tomiolo Via 
Ca Rat ti . 13 cap 3705 3 Cerea Tel. 0442/S 274? 
(ore 1 2- 13 oppure ÌN-20). 

Diciottenne peri tri elettrotecnico offre si per 
qualsiasi attività nel campo dei personal com- 
puter, Francesco De Colle PJe Capo L muro. 
11/23 c ap 00653 Civitavecchia (Roma) Tel 
0766/34171 oppure 40171 (ore pasti). 

Consulenze e programmi; su richiesta per 
Commodore 64, Tei. Claudio 02/680482 (ore 
20,30-2! ,30) Milano 

Esperto Basic Commodore, si udente program- 
mazione, diplomato operatore con esperienza 
su sistema TI 990 S.O.DXIO* offre si come di- 
mostratore disponendo di ore libere al matti- 
no. Cristiano Monti via Marcello Morelli 6 cap 
20132 Milano Tel 02/28569! 4 (ore 9-13), 

Studente appassionato off resi come dimostra- 
tore presso punti di vendica di personal com- 
puter zona Nord Milano, Roberto Quaglia via 
Mart mazzoli. 2 cap 201ÓI Milano Tel 
02/6462130. 


Appassionalo conoscitore del Commodore 64 
disponendo tempo libero al pomeriggio off; ,■■■; 
come dimostratore solo in zona. Gioacchino 
Di Fazio vm ( ap. Ippolita. 62 cap 92024 Cam- 
cattì(AG) Tei *51363/109221 (ore 14-16). 

Studente di informatica offre Luigi Monaco 
Via Largo Adua. 28 Bah, 

Studente secondo armo ingegneria informatica 
offresi come consulente hardware software su 
CBM 64. Marco Tel. 039/460853 Listone (MI). 

CONSULENZE 

CERCANO 

Cerco consulenza tecnica c software per 
Commodore serie 8000 CBM 8096SR, Michele 
Giustino Via Posìfitpo, 85 cap HO 100 Sa polì Tel 
081/ 7697205 oppure 7696025. 

Cerco consulenza per trasforma /ione Lin- 
guaggio Macchina per Olivetti M/20 pro- 
gramma personale per uso proprio. Ditta Cen- 
tro Sisl e mistico Cini Via A qu detti. 68 Palermo 
Tel 206684. 

Cerco urgentemente programmatore per rea- 
lizzare programmi dt Meccanica (Resistenze 
dei materiali) su Commodore 64. [ranco e 
Maurizio Bruno via Giorgio Brani. 100 cap 
47023 Cesena Tel 0547/238/0 ( ore 100-211), 

Scambiano programmi 
per Vie 20 

Giuseppe Mieli Via Tka, 1 67 cap 96100 
Sirasuca Tel, 3342 1 

Alvaro Ceccarinì Via Di Vittorio* 10 cap 
58022 Follonica (GR) Td. 0566/43248 
(ore serali feriali) 


Antonio Raineri Via Mazzini* I cap 20077 
Mdcgnano (MI) Td. 02/9833788 (ore 
12.30-14 dai lunedi ai sabato) 

Federico Novelli Via Cavour, 15 cap 
21013 Gallarate (VA) 

Vendono hardware per 
Vie 20 

Vie 20, espansioni* cartucce, manuali* li* 
bri, programmi. E^trick Tel. 02/657O06H 
solo zona Milano. 

Vie 20* espansione I6K, registratore 
Commodore. Claudio Morgia Via dei 
Zeno, 31 cap 00176 Roma Tel. 2772314 
(ore 1 1-18) 

Vie 20* espansione I6K, Superexpandcr. 
libri in italiano e inglese. Andrea Espusiti 
Via Brescia, 16 cap 00196 Roma TcL 
845801 1 (ore pasti) 

Vie 20, registratore* manuali c software 
vario* Roberto Covanti Fabriano Tel. 
0732/3915 

Vie 20* cartuccia, software vario, Massa 
Carrara. Td. 0585/57972 (Luca) 

Vie 20* manuali* libri, software vario. 
Massimo Mazzoni Via Varsavia* 8 cap 
50065 Pontassicvc (FI) Td. 055/8302440 
(dopo le 19.30) 

Registratore Commodore. Gatti Don Fer- 
dinando Via S, Giovanni Bosco* I cap 
20084 Laccherei la Tel. 9008121 (ore 12- 
13 e 19-20) 

Comprano periferiche 
Commodore 

Disk drive max 350000 Roberto Td. 

070/961121 

Disk drive possibilmente doppio compa- 
tibile con PET 3032. Giuseppe Nipoti Via 
Malvasia* 10 cap 4013] Bologna Tei. 
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PIU MEMORIA PER IL TUO VIC-20 


05 1/55259 1 (ore pasti) 
lìisk ihive per C-64 (latti Don Ferdinan- 
do Via S, Giovanni Bosco, ì cap 21)084 
1 occhia re Ila Tel. 9008121 

PICCOLI ANNUNCI 
SOFTWARE 

Avvertente Onde evitare speculazioni 
commerciali, da questo numero vengono 
pubblicati solo i nominativi dei lettori 
con la sola dizione SCAMBIANO PRO- 
GRAMMI e con la suddivisione per 
computer. 

F pertanto inutile inviare elenchi in ter 
minabtli di idoli che non verranno presi 
in considerazione. 

Scambiano programmi 
per Commodore 64 

Giovanni Addatilo Via Monte Vettore, 46 
cap 60131 Ancona 

Mauro lannucci Via E, Ixnm, 49 cap 
00Ì46 Roma 

Silvio Gatta Via L, Calori, l cap 40 1 22 
Bologna Td. 556218 {ore pasti) 

Maurizio Scihi Jia Via Alighieri, 30 cap 
53040 Rapolano Terme {SI) Tel. 0577/- 
724205 

Nìcd Tranquilli Via RufTini, 13 cap 62012 
Ci vitanova M. TeL 0733/770332 
Claudio Veronese Via M, Lensi, 29 cap 
15100 Alessandria Tel 0131/344591 
Angelo Orlandi Via delle Àlbizzie, 40 cap 
00172 Roma Tel. 288368 
Firmino Cigalotlo Via Larpacco, 283 cap 
33100 Udine Tel 0432/284563 
F.llì Cervi lotto Z is.M cap 80144 Via S. 
Claudio M Enopoli Napoli Tel. 081 A 
701 1322 (ore 18-22) 

Flavio Giuliano Via Costantino, 22 cap 
00145 Roma T el 5127007 (ore 14-15 op- 
pure 2(130-22.00) 

Graziano Balcani Via De Gasperi, 42 cap 
60020 Agugliano (AN) l ei 907093 {ore 

1 5- 1 8 ) 

Paolo Cangiameli Via Odavia, 43 cap 
00195 Roma Tel. 06/385173 (ore pasti) 
Massimo [ concini Casella Postale, cap 
16035 Rapallo <GE) 

Luca Dell'Oro Vìa dei Lillà, 53 cap 20089 
Rozza no (MI) Tel. 02/8251907 (ore 13- 
16 oppure 19,30-2 1) 



TUTTA LA POTENZA CHE HAI SEMPRE 
DESIDERATO CON QUESTA CARTRIDGE 
CHE ESPANDE LA MEMORIA DEL TUO 
VIC-20 COME VORRAI: 3K - 8K - 16K 

Progettata 0 prodotta io Inghilterra dalla Stoneehip Electronics questa 
cartuccia ti consente, tramite dei mrcroswiteh, di disporre di un amplia- 
mento differenziato della memoria: 3K o 8K oppure 16K, secondo 
quanto richiède il programma che devi far girare (saprai che un pro- 
gramma dimensionato per un’espansione di 3K 0 di 8K non può gira- 
re se si usa un'espansione di 16K). 

Con un'unica cartuccia avrai 3 espansioni e ti consentirà di ag- 
giornare il tuo VIC-20 che ti sarà così ancora utile per molti anni, 

I contatti placati in oro assicurano una lunga durata ed inoltre c é la 
nostra garanzia per un anno. E ad un prezzo introvabile! 

OFFERTISSIMA DI CARTRIDGES COMMODORE PER VIC-20 E CBM-64 

MULTIPACK 064 contenente N. 3 cartridges per Commodore 64 
(Sea Wolf + Clowns + Jupiter Lardar) 

e N. 8 cassette CI 5 Lire 67.000 4* IVA 

MULTIPACK VIC-20 contenente N. 3 cartridges per VIC-20 
(Omega race, Avenger, Cosmic Cruncher) 

e N. 8-cassette CI 5 Lire 49.500 + IVA 


- 

Spedire II presente MODULO D’ORDINE o una fotocopia, in busta chiu- 
sa allegando Lire 2.600 in francobolli per fé spese postali. 

Spett.le ARCO srl - Cas, Post. 239 - 10015 IVREA (TO} 

desidero ricevere quanto da me contrassegnato con una X Paghe- 
rò direttamente al postino alla consegna dei pacco l'importo indicato, 
che è comprensivo di IVA, spese di imballo e contrassegno 
□ Vfxen Swìtchable Ram (espansione di memoria) Lire 95.000 

J Multipack C-64 (N, 3 cartridges e N. 8 cassette Ci 5) Lire 80.000 

i Multipack VIC-20 (M 3 cartldges e N. 8 cassette CI 5) Lire 60.000 

Per un importo totale di Lire 

I j Non acquisto nulla ma desidera ricevere il vostro catalogo di offer- 
te speciali 

Ktom e 

P T ■'IV mi iiJ !.. .44. 4 - - - 1 1 ■ 1 ■ 1 1 1 1 ! ■>■ ■■ ■■ . ... . . . mi 

Indirizzo 


data Firma 


CERCASI 


La redazione di Commodore Computer Club vuole potenziarsi e 
ricerca collaboratori part-time e insegnanti di discipline scientifi- 
che e tecniche preferibilmente residenti nell’area di Milano 

Ai collaboratori che stiamo ricercando verrà richiesto di collabo- 
rare alle varie iniziative della casa editrice con articoli, libri, rac- 
colte di programmi e l’ italianizzazione di software, di cui abbia- 
mo i diritti d’autore, orientati alla didattica per le scuole medie e 
superiori. 

I prescelti, pertanto dovranno possedere un sistema completo 
di Vie 20 oppure Commodore 64 e sapere programmare sia in 
basic che in linguaggio macchina. La conoscenza dell'inglese e 
di altri personal computer è un titolo preferenziale. 


Compensi 

Tutti i lavori svolti su incarico della redazione verranno sempre 
compensati in base ai miglior standard di mercato. 


Primo contatto 

Per incontrarci telefonate allo 02/8467348 chiedendo della si- 
gnorina Piera 


LISTINO PREZZI COMMODORE 




COMPUTER 




Riservato 
agii ingegneri 


PRODOTTO 


Vfic 20 


prezzo | Il miglior software tecnico su elaboratori CBM 
(WAfKL.) [ Q ra anC h e disponibile su Commodore 64 


- Commodore 


MOME COMPUTER 

Mftmofrn tose 5 Kbyles, 2hh combinazioni dit-afarl, Jy^ci. BA5IC re-si- 
ervfe, s '> college di 'eWan - sai® a q ua b tìSi seie vfSOró domestico. 


jCOMfAODORE 16 


HOMI COMPUTER 

■ 'emano 16 Kby?e?i RAM slo^dard. 1 2 Hbytes RAM acce^ibJl per prO- 
gronviìi Ir» pASfC. &A5fC 3.5 nesdenfe fJÌ colori MS dba» confi gra- 
ja^tìOi +h.-iH=-o; c;d Righile 0 un cornine televr^ùre 


I IcOMM OPOrT 64 

; i. ». ■ ■ 


[ CPU 64‘X RAM 

1 ^ompLrier ijOn alla risniui one graka, 256 cambi ntiuoni r* < nlori, sinie- 
1 'ifiurafl di aziono PosilbiliIÓ di creare eccezionali • ligure JridimenfiiOrtoli 
tinomicb* r oshefO grafica D ime nsior*e della scherma 40 co- 

jrvie per 25 ■ gh e Con patibi le cori futtc le pemfenc^e Coirmodn re. Col - 
egobilna gT comune lelevèsore 

625 000 

C A4 EXECUTIVE 

w ’iOlo e 1onras.rn:o compurer porlcili’t dello jer.onda generazione Moni 
■ n r q coior' d- 5' od Olio risoluzione grafico e Floppy 0 j& 1< Onvc do 170 

I " byiG3 inccwporoNl Tajtìfjfo grafica Separabilf suono proÌe?Lii*pniCile e 
fl ampiera compost I lo C*n i piogrammi e le per {eriche del Commodore 

1 ns loffio uft cOTipuler dfj. fnille gii Paòirkoh^e ul|Hj/à^e fusele cort\«;~ 

| 64 c pub es sere colinolo bl mornlor 1 702 

2350 000 


199.000 Hcrn/pnNn” 
ofH/rUNU 

L'ormai famoso programma per il calcolo delle strutture intelaiate 
piane in c,a., in zona sismica, che sviluppa e disegna anche le car- 
245ooo pentehe delle armature, ora agganciato al programma “FONDA- 
ZIONI’* che risolve Unterò graticcio di fondazione proponendo una 
carpenteria sofisticata ed ottimizzata* 

L. 1.200,000 (versione giugno 84 - nostra esclusiva) 


Sii* 


! ' : !i" ' • •• 

1 -v-l:'.- . 


MURI DI SOSTEGNO’ 


A gravita, a mensola ed a contrafforti, anche in zona sismica, se- 
condo il D M. del 21.1.81 
L 300.000 


“PENDÌI” 

Analizza la stabilità di un pendio o di un fronte di scavo sotto diver- 
se condizioni e la verifica relativa viene condotta in termini di ten- 
sioni effettive: la stima dei fattori di sicurezza viene effettuata se- 
condo i metodi di Fellenìus, Bishop e Janbu, 

L. 300.000 


[COMMODORE FiUS~~4 


PERSONAL COMPUTER 

■ 'amano 64 tCbytes RAM, ÓO byrcsK RAM ucwmJ> 1 per programmi m 
tASlC BASIC 3,5 residen!e. I?s cdon 1 1 6 cfc base non 8 grodaù'icinil 4 
"'jgwiyirH dtwm levanti su ROM CfjfegqMe a un asmui* televisorti 


975.000 


|CPMMODOR£ 3 QOQ 


Esegue la progettazione delle armature e le verifiche dì sicurezza 
per fondazioni su pali (plinti o platee). E’ previsto anche il plinto 
senza pali, con schema, in tal caso, di suolo elastico alla Winkler, 
L 700*000 


PERSONAL COMPUTER 

.PU ; 2B iCbyles RAM, ?4tfbytes ROM, Baski 4.0 residente. vidimo 
■ i lab>kj e bottinante 80 colpirne per J5 r*gbe, loditelo CCnnmer(. luii ■ 

-Sparato Solerne tempafciide con CBM 8032 e CBM BG96 


I 995.000 


^COMMODOR E 700 


PERSONAL COMPUTER 

PO 128 Kbytei. fi AM ciperi difoifc m lem amen le a 256 Kbytet. ad e-s.te f - 
-oménre a 96 QK Video oriofilgibite a bohfukjnle, 80 colonie per 25 
)he GempaltbUfi con fune l*> perilenche Corri- madori» dalle Serie prp- 
feisioftólfi 


PERSONAL COMPUTER 

'PO 256 Kby1e?h I? AM espandibili esteTncmien te o 9ó0 Kby'eì Video 
'Antabule bustulanle. M5 1 donne jjtìr 25 nghr Compohbite con telte 
* periferiche Commodore delle serie praFet iionole 


,yyj 01X1 “A.S-CJ,” (Analisi Strutture per Coperture Industriali) 

Calcolo di travature reticolari formanti strutture (in acciai) per co- 
perture industriali. Verifiche di resistenza e di instabilità laterale per 
3 . 250.000 ogni ssta. Analisi delie sollecitazioni indotte nei pilastri sotto carichi 
trasmessi dalle travature e azioni sismiche, 

L. 600.000 



PRODOTTO 


COMPUTER 

COLLEGABILI 


Imqnitor 


£> “COMPUTI METRICI” 

prezzo Analisi ed elenco prezzi. Metodo veloce e complementare automa- 
(i va e set.) lizzato per il computo e la stima dei lavori* 

L 500.000 


MONITOR MONOCROMATICO 

A fattori verdi 12 ' 

VIC 20 X 16 X 64 . 
SX 64 . PLUS 4 

205000 

MONITOR A COLORI 

\d a Ilo risiìki/Epntì, ! A m , tran audio 

Vie 20 . C 16 X 64 . 
SK 64 , PLUS 4 

690000 


| REGISTRATORI 


II 


REGISTRATORE DEDICATO 

Per m femori zzore facilmenTa programmi e 
da li sw normali cosserie mogneticKe 

VIC 20 X 64 .. 

120 000 

REGISTRATORI DEDICATO 

J er memorizzare faeHmen’f» procjrammi e 
dati su norme li oassene mognetiche. 

C 16 , PLUS 4 

120 000 

H 


“revisione prezzi” flHHWHMHMHHMMBBI 

690.000 1 Secondo le disposizioni di legge vigenti. Praticità ed automazione 
1 consentono di eseguire velocemente revisioni di prezzi anche per 
lunghi periodi. 


“orario scolastico” 

Nuovo ed esclusivo "pacchetto” che consente la stesura detf 'orario 
scolastico per ogni tipo di scuola* Indispensabile per la velocità e 
(imparzialità dell'elaborazione. 

L. 700.000 


[memorie biomassa 


FLOPPY DISK DRIVE 

Ufiiiò dii memorio dì mai&a drive s-ingoto, 
Tdpociiò J 70 Lbyies in linea. 


FLOPPY DISK DRIVE 

Jn.fò di memoria di massa, drive doppio, 
iopocità 1 Mbylès in linea , 


FLOPPY DISK DRIVE 

Jmlà di memoria d m-asta. drive singolo, 
rapacità 1 Mbyte* in Imeo 


vie me 10 x 64 , 

SXÓ 4 .PIUS 4 


C BG325K, C 8096, 
C B296, C 710, C 
720 , C 610 , C 630 


C ÉJG32SK, C 3096, 
C 6296. c 710. C 
720X610X620 


630.000 


2.375,000 Richiedeteci documentazione e output dei programmi di vostro interesso 

Resterete s bai orditi dalia versatilità e dalia completezza dei nostro software 


ISIRANGELO COMPUTER Srl 



Via Parisio. 25 - Cosenza 0984 - 75741 


































2,600.000 


STAMPANTI 


STAMPANTI PLOTTER A COLORI 

60 cord flfin pHjr linea 4 colori., olio rìsolu- 
i one di 0,2 mm per passo 


UNITA STAMPANTI 

Srompo velocemente su cario normale 
quanto appare sul video: programmi, let- 
tere. òoti, ■grafici. 


FLOPPY DISK DRIVE 

Unità di memori o di massa, -drive doppio, 
dopp -a fot; c io . doppio densità, co poc ' ró 7 

V-by'es ,n lineo 


Vie 20, C 16, C 64, 
SX 64, PLUS 4 


C-B0325K, C8096, 
C 0296. C 710,. C 
72O,Cól0,Cà20 


1 275 OOC 


3.25Q.0ÓC 


PRODOTTO 


COMPUTER FRIZZO 

COLLEGABILI (IVA ISCLj 


INTERFACCIA IEII 4M 

C o n sente- i I co H ege me-^to d f u t'e ie neri f e- 
nche con imerfocc'O IEEE 463 


C ló,C44, SX64, 
P;US^ 


COMANDO PER GIOCHI 

(Joystick) 

Pp r me'te d I muover Si in I utre <e d< r&ì iC rv , d i 
I -mi -are vO' r giac* 1 " d‘ movimenro e spara- 
re 


VIC 20 C 64,3X64 


I3.5QC 


COMANDO A MANOPOLA VìC20,C64 SXó4 

PER GIOCHI (Paddi*} 

Adatto per i giochi a 2 persone, esegue 
| fnov .m e oli m o-r, oonSa le e 
[ verticale 


22.5CC 


NUOVO SISTEMA OPERATIVO 

PerS0965X o per 0O32SK con 6 Puàgesn- 
| re fmo a 16 programmi residenti simufto- 
"ea mente m memorie. Dà a disposizione 
76K per Ile vari obli e Ó3K per i program m 
Pde nz ;a oli re ri Ba sic con olir * c omondi 


C 80325K, C 8096, 
C0296 


SCHEDA AD ALTA RISOLUZIONE 
GRAFICA 

Compatitale jr sistemi delio sene 8000 


C S032SK, C 8096 
C8296 


CAVO PIT7IEII 


C 8Q32SK, C 8096, 
C 8796, C 710, C 
720, C 61 0. t 620 


85 0 GC 


R.C.P. ELETTRONICA srl 

Via Don Pasqumo Borghi, 13 
42017 NOVELLALA (REGGIO E.} 
Tel, 0522/66 1471 


CAVO liCE/tEEE 


C SQ32SK, C 8096, 95.000 

C 8296, C 710, C 
72aCóiO.CÓ2Q 


ACCOPPIATORI ACUSTICO 

300 baud. 


64* RAM 

Scheda di ampliamento memorie per 
8032 e n uovo s isiemo operai ivo ¥ P Vi 96 ' 

C8032SX 

CP/MAKER 

incrementa lo memoria mlerno di Ó4K j 
RAM e permetlé ! r w$o d' tutti i programmi 
CPrM 6 t>ii dispombil- Comfn-a'sbilecon lo 
serie 3000/4000/8000 

| C8032SK 


BUONO DI ORDINAZIONE 

Invioterni N. interfacce cassette 

Sig 

Via __i _ 

cap Città 


FLOPPY DISK DRIVE C 8032SM: 9096, 

Unità d' mematia di mosso, drive diappio, C 8296. C 710. C 
do ppia Face a . dopp io d ansi rò , copocilò 2 720, C 6 1 0, C 620 

Mbytes m lineo. 


STAMPANTE VIC 20, C 1 6, C 64. 

Bidiru/ionala, 80 CPS, 80 coionne, capo in SX 64. PtU5 4 
modulo singolo e/o continuo 

STAMPANTI A COLORI VIC 20, C 16, C A4, 

7 colori, stampa a matrice di punti, 38 | SX64,PlUS4 
C PS, B0 color ne 


STAMPANTI A MARGHERITA VIC 20, C 1 6, C 64, 

flidire/i ornile, 1 ? CP5, irascmamenta a Iti- SX 64 . PLUS 4 
/ione, stampo Imo o 166 carotieri per li- 
neo 


STAMPANTE C 90325K, C 8096, 

Éidire/ionalfi od aghi, 60 CBS. 80 colon- C 8296 C 710, C 
ne 720, Cóì0 T C620 


STAMPA NTE C &Q325K . C 8096, 

Stampante od aghi, 15QCP5, 132 coloni . C 8296, C 7 IO 1 , C 
- r-e, bidire/ionole, trofei no mento a trattore 720, C 610, C 620 
elezione. 

STAMPANTE C 803 25* , C B096. 

S tomponie a mcnjHeilta, 40 CPS, 136 co- C 8296. C 710, C 

lonne passo pica, 163 colorine passo èli- 720, C 610, C 620 
te„ bidire/JOnoler ubicatale anche con 
corta da bollo, Irose momento g irahore e 
frì/ione 


INTERFACCIA 
REGISTRATORI 
A CASSETTE 


PER VIC 20 E COMMODORE 64 

Adatta tutti i normali registratori a cassetta al 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I.V.A, e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono di 

irciInmari+Q rynmn.ilmf A 




96 - Computer Club 
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Registrate II mio abbonamento annuale a Commodore Computer Club. 

□ Ho versato oggi stesso il canone di L 22 000 a mezzo c/c postale n* 31 532203 Intestato 
a: 

Commodore Computer Club - V.le Famagosta, 75 -20142 Milano 

□ Ho inviato oggi stesso assegno bancario n.„ 

per l'importo di L. 22.000 intestato a Commodore Computer Club. 

Si prega di scrìvere il proprio nome e l'indirizzo completo in modo chiaro e leggibile. Inviale 
la fotocopia del bollettino di c/c postale. 


ÉVI VV-ifeHt ■pi'4 JÉ.a 


Consideriamo eh© i numeri 1 © 2 sono esauriti, vogliate inviarmi i numeri arretrati 
ai prezzo di L 5,000 cadauno par richieste fino a 4 nume ri , o di L 4*000 cadauno per 

richieste oltre 1 4 numeri arretrati, e perciò per untotele di L - Sono a conoscenza che 

i fascio!! suddetti non saranno inviati in contrassegno a, pertanto, ho provveduto oggi stesso 

‘‘{'fi . t 

a varare il canone di L...*.. ... a mezzo c/c postale n. 31 532200 Intestato a; , 

Commodore Computer Cfup - V.le Famagosta, 75 - 20142 Milano 


1 STATISTICA 


■ +4 * i-i-BB*4fil-*%P 444 B B ■ + ■ B-" 


a a m m-mm a fi.* i ■ + 4 P I ■ 4-P #44 4 * ■ Vi 


Non posseggo u n computer □ 

Posseggo un 064 

Posseggo un V1C20, 

Posseggo un Commodore Plus 14 
Posseggo un Commodore Plus 16 é p M ■ * M *-i M a M a >*-M fr*« r i « * > i « « i ■ ■ • 4 » r* " 

Posseggo un registratore dedicato 

Posseggo un drive 1541 

Posseggo una stampante 
Posseggo un monitor 




| ì^B lil BAI ildii jlf rÌM''PÌ | Ì4 | llÌPÌ | l.ii^iè|r i il li 4 4 #-#■** 41 I fH M ■ » 1 ■ » | Ì J| » * M 


siO noO 
si noO 
sia ... noD 
siQ noO 
sin ... noO 
sia noO 
sia noO 
siD ... noO 


rj 


COLLABORAZIONE 


A titolo di prova vi invio un articolo e la cassetta 


.d^sco. . , ti.pt.it « iit.im 


DOMANO A/RtSPOST A 


[T fxF 
«-* * 


a * h a 4 ■ è*id>«a»iBi«a ■$ * s»#« avaiaf xpiif ir • • p'p «ff ■%M | a m ■ ■ ■ * i a a-» ih#iiMìm ■ b'-p-« + ® 


4 -fi iti! ri Bill S I fl HIP 


ihi-Éaii’tii 


........ ....... n ..... mi ...... ... . . i.pp.p.p,- ..il ... tal .ut*.. » P .M i.Miit .«*1 >**■> tu .»« . . 






a* 


■ «■diti ta lèi ■ iti ■ I IH 4 4 BiaMiMH*4-H* , dd44PJ 


B- + -® 1 liMPS-P ■ ■ P 


IH IPlFHHHi iiii.MMibdilld BIIIIF*4l4«iai9*PBR 




RICHIESTA ARGOMENTI 

Mi 'areobe piacere che Commodore Computer Club parlasse più spesso de* seguenti 
argomenti 


1/ 


2/ 


3/ 


GIU DIZIO SUI PROGRAMMI DI QUESTO NUMERO 


Ho assegnato un voto da 0 a 1 0 al programmi che indico di seguito: 


A/ 


Voto 


I Iri4 ft hb4 «bri 4 * 


0/ — ....Voto 


PICCOLI ANNUNCI 


ri m m m ri m i ■ ■ a ■ ■ m m a u ■ 1 » ■ ■ 1 a a a t ■ i ■ ■ ■ * a ■ 1 1 ■ ■ ■ r Brinai a * hi ■ p ri ri ■ ■ tc.r ■ ri ri- n ■ ■ n .ri ri ri- ■ ■ ■ ■ àura itvii ri ■ ri m d liiilia tiiiii a 1 t ■ ri a r a ri et ■ ■ a t ji ririihaaAilr naairari rn B ■ a aiiiaairi 


CERCO/OPFRO CONSULENZA 


b I ■ * ri ri + « rii ■ ri B 4i b 4 * t 4 ■ fc 4 * ■ ■ *4i ■ 4 + ■ ■ 4 * I t ri «I ■ ri + ■ ■ »#» ri *# ri ri » I ri ■fiT* I %* I ■♦* I I ■ ■ 4 » B ■ ** * Il # H I I * * *>«-*-« ■ 1 ■ * -È-** P Il 1-Ì* P I** fi É*** ■ 8lM ■ ■ 4-9 *1 4 1 *# I 8-M I *<■ ■ 


INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A: 

COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE 81 UTILIZZA UNA SOLA SCHEDA 




4sr 


L’esperienza insegna. 

La richiesta di corsi d'informatica cresce ogni giorno di più. Ma non basta conoscere bene il computer per' saperne 
insegnare luso ad un pubblico tanto ansioso d'apprendere quanto privo di qualsiasi nozione di base in materia. 

Me Sa soia esperienza didattica e sufficiente per entrare in questo settore. Cosi, incalzato dalla domanda, 
anche tu che non vuoi rispondere con un insegnamento insufficiente o improvvisato, probàbilmente sei alla ricerca 
d una metoiogia provata e sicura, di una manualistica coerente e completa, di sussidi audiovisivi e schemi di lavoro. 

Computer Schooì * possiede uria solida, tangibile e collaudata esperienza d’insegnamento deli 'informatica e ti dà tutto queste, 

- eme al know-how ed al supporto necessario perche anche tu possa entrare con successo in questo promettente mercato. 
Inoltre, consentendoti di presentarti agli utenti potenziali con il suo marchio e la sua insegna, ti offre un ulteriore vantaggio: 
beneficiare d’una possente azione pubblicitaria sulle più diffuse e prestigiosa pubblicazioni del settore 
Se perciò vuoi essere la prima Computer School della tua Città non esitare a contattarci. 



Franchising per insegnare. 

20090 Trezza no S/N (MI) - V.le C. Colombo, 49 - Tel, {02) 4454352/4459252 
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